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(54) Apparatus and method for display panel inspection. 

(57) A system for inspecting a display panel in- 
cluding a plurality of pixels, the system includ- 
ing a selective pixel actuator which causes only 
some of the plurality of pixels to be actuated, a 
sensor for acquiring an image of a pattern 
which is generated on the panel, and an image 
processor operative to identify nonuniformities 
in the intensities of pixels of the panel. 
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FIELD OF THE INVENTION 



The present invention relates to display panel inspection. 



5 BACKGROUND OF THE INVENTION 

Conventional systems for inspecting display panels include the system described in Cummins, R. et al, 
"Evaluating image quality and defect characterization in flat panel display", Photon Dynamics, Inc., 1504 
McCarthy Blvd., Mil pitas, CA, USA. 

10 In conventional display panel inspection, an image of a display panel, including a multiplicity of pixels, is 

imaged by a sensor which is also pixelated, the pixels of the sensor normally not being contiguous (i.e., having 
a fill factor of less than 1 00%) and normally not being equally sized nor perfectly aligned relative to the pixels 
of the display panel image. 

Fig. BA-1 is a diagram of a display panel image including, for simplicity, four display panel pixels 10 which 

15 are imaged by a sensor including, for simplicity, six sensing elements 20. The sensor is ideal, i.e. theoretical, 
in the sense that the sensor elements thereof are contiguous. Typically, nonuniform display panel intensity 
shows up as a local variation in the video signal of the sensors. The numbers within the display panel pixels 
10 indicate the proportion of the total area of the display panel pixel that is sensed by the respective camera 
pixel, in arbitrary units. 

20 Fig. BA-2 is a diagram of a display panel image which is not ideal in that the sensor elements 20 are not 

contiguous. In Fig. BA-2, for simplicity, three display panel pixels 30, 40 and 50 are shown. The portion of dis- 
play panel pixel 40 which is not sensed, as indicated by cross-hatching 70 is smaller than the portions of display 
panels 30 and 50, as indicated by diagonal lines 80. This results in inaccuracies in measuring the intensities 
of the display panel pixels. Specifically, local variation in the video signal of the sensors does not necessarily 

25 indicate nonuniform display panel intensity. 

SUMMARY OF THE INVENTION 

The present invention seeks to provide an improved system for display panel inspection. 
30 There is thus provided in accordance with a preferred embodiment of the present invention a system for 

inspecting a display panel including a plurality of pixels, the system including a selective pixel actuator which 
causes only some of the plurality of pixels to be actuated, a sensor for acquiring an image of a pattern which 
is generated on the panel, and an image processor operative to identify nonuniformities in the intensities of 
pixels of the panel. 

35 Further in accordance with a preferred embodiment of the present invention the display panel includes an 

LCD (liquid crystal display) panel, and the system also includes an illuminator operative to provide illumination 
to a panel to be inspected. 

Still further in accordance with a preferred embodiment of the present invention the illumination of the pan- 
el to be inspected includes back illumination and actuation of pixels includes changing the local transmittance 

40 thereof. 

Additionally in accordance with a preferred embodiment of the present invention the selective pixel actua- 
tor is operative to sequentially actuate a sequence of pixel subsets, and each pixel subset includes only a single 
pixel within each of a plurality of pixel vicinities of predetermined size within the display panel. 

There is further provided in accordance with a preferred embodiment of the present invention a system 
45 for inspecting a display panel including a plurality of pixels, the system including a sensor for simultaneously 
acquiring an image of substantially the entirety of a pattern which is generated on the panel, and an image 
processor operative to identify nonuniformities in the intensities of pixels of the panel. 

There is additionally provided in accordance with a preferred embodiment of the present invention a meth- 
od for inspecting a display panel including a plurality of pixels, the method including actuating only some of 
so the plurality of pixels, acquiring an image of a pattern which is generated on the panel, and identifying nonu- 
niformities in the intensities of pixels of the panel. 

There is further provided in accordance with a preferred embodiment of the present invention a system 
for inspecting a display panel including a plurality of pixels, the system including a sensor for acquiring an image 
of a pattern which is generated on the panel at a resolution which does not substantially exceed that of a stan- 
55 dard TV camera, and an image processor operative to identify nonuniformities in the intensities of pixels of 
the panel. 

Further in accordance with a preferred embodiment of the present invention the sensor includes less than 
1300 x 1000 sensing elements. 
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Still further in accordance with a preferred embodiment of the present invention the sensor includes no 
more than 800 x 500 sensing elements. 

There is additionally provided in accordance with a preferred embodiment of the present invention a system 
for inspecting a display panel including a plurality of pixels, the system including a sensor for acquiring an image 
5 of a pattern which is generated on the panel, and an image processor operative to identify the intensity of each 
pixel of the panel. 

Further in accordance with a preferred embodiment of the present invention the display panel includes a 
liquid crystal display (LCD) panel. 

Still further in accordance with a preferred embodiment of the present invention the display panel includes 
10 an LCD cell without illumination, driver or polarizer. 

Additionally in accordance with a preferred embodiment of the present invention the system also includes 
a fixture for holding the panel to be inspected. 

There is also provided in accordance with a preferred embodiment of the present invention a method for 
inspecting a display panel including a plurality of pixels, the method including simultaneously acquiring an im- 
15 age of substantially the entirety of a pattern which is generated on the panel, and identifying nonuniformities 
in the intensities of pixels of the panel. 

There is further provided in accordance with a preferred embodiment of the present invention a method 
for inspecting a display panel including a plurality of pixels, the method including acquiring an image of a pattern 
which is generated on the panel at a resolution which does not substantially exceed that of a standard TV cam- 
20 era, and identifying nonuniformities in the intensities of pixels of the panel. 

Still further provided in accordance with a preferred embodiment of the present invention is a method for 
inspecting a display panel including a plurality of pixels, the method including acquiring an image of a pattern 
which is generated on the panel, and identifying the intensity of each pixel of the panel. 

25 BRIEF DESCRIPTION OF THE DRAWINGS 

The present invention will be understood and appreciated from the following detailed description, taken 
in conjunction with the drawings in which: 

Fig. BA-1 is a diagram of a display panel image which is ideal in that the sensor elements are contiguous; 
30 Fig. BA-2 is a diagram of a display panel image which is not ideal in that the sensor elements are not con- 

tiguous; 

Fig. 1 is a functional block diagram of a display panel inspection system inspecting an LCD celt; 

Fig. 2 is a diagram of one possible display panel pixel actuation ordering based on vicinities of 5 x 5 pixels 

each; 

35 Fi 9- 3 is a diagram of another possible display panel pixel actuation ordering based on vicinities of 7 x 7 

pixels each; and 

Fig. 4 is a simplified flowchart of a preferred image processing method for identifying the intensity of each 

pixel of the inspected display panel which is suitable for implementing the image processor of Fig. 1 . 

Attached herewith are the following appendices which aid in the understanding and appreciation of pre- 
40 ferred embodiments of the invention shown and described herein: 

Appendix A is a computer listing of a makefile for a preferred program which runs on a workstation and 
performs the functions of Fig. 3. 

Appendices B - O are subroutines, termed GRAB_GLOBALS, GRAB_PACKAGE, GRABCENTER, RE- 
MOTE, DEMO, RESAMPLE, CCJJNK, SCAN^FILES, SCANJF, SCAN^TEXT, OPTIONS, PICJO, GRAB and 
45 IMIO, respectively, which are called by the program of the executable file generated by the makefile of Ap- 
pendix A. 

Appendix P is a computer listing of a preferred software implementation of selective pixel actuator 130 of 
Fig. 1. 

50 DETAILED DESCRIPTION OF PREFERRED EMBODIMENTS 

Reference is now made to Fig. 1 which is a functional block diagram of a display panel inspection system 
inspecting an LCD cell 100. 

Since the unit under inspection is an LCD cell, polarizers 104 are provided as well as back illumination 
55 110 and a prober 120 which is operative to provide electrical contacts with the inspected panel 100. A suitable 
fixture 124 maintains the LCD panel 100, polarizers 104 and illuminator 110 in mutually fixed association. 

It is appreciated that substantially the same syst m may be employed to inspect an LCD module and/or a 
light emitting display panel. If an LCDmodul is insp cted, the polarizers 104, back illumination 110 and prober 
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120 may be eliminated. 

In the present specification, "LCD cell" is used to refer to a display panel without backlight, driver or po- 
larizer whereas "LCD module" is used to refer to a fully assembled display panel. 

The prober 120 is operative to provide electrical communication between LCD panel 100 and a selective 
5 pixel actuator 130. The selective pixel actuator 130 is operative to cause only some of the plurality of pixels 
which together form the display panel 100, to be actuated at one time. For LCD panels, actuation of pixels 
comprises changing of the local transmittance thereof. For light emitting panels, actuation of pixels comprises 
changing the amount of light emitted by the pixels. 

Preferably, the selective pixel actuator 130 is operative to sequentially actuate a sequence of pixel sub- 
to sets, wherein each pixel subset includes only a single pixel within each of a plurality of pixel vicinities of pre- 
determined size within the display panel. 

The simplest selective pixel actuation scheme is one in which, when a particular pixel is illuminated, none 
of its 8-connected neighbors are illuminated. Other pixel actuation schemes based on more complex pixel ac- 
tuation orderings are illustrated in Figs. 2 and 3. 
15 Fig. 2 is a diagram of a display panel pixel actuation ordering which is based on vicinities, referenced 140, 

of 5 x 5 pixels each. The ordering of the pixels as 1 , 2 25 means that the sequence of actuation thereof is 

as follows: 

STEP 1: All pixels marked "1" are activated, thereby generating a first pattern on the screen; 
STEP 2: All pixels marked "2" are activated, thereby generating a second pattern on the screen; 

20 

STEP 25: All pixels marked "25" are activated, thereby generating a twenty-fifth pattern on the screen. 
Fig. 3 is a diagram of another display panel pixel actuation ordering which is based on vicinities, referenced 
1 50, of 7 x 7 pixels each. The ordering of the pixels as 1 , 2, 49 means that the sequence of actuation thereof 
is as follows: 

25 STEP 1 : All pixels marked "1" are activated; 

STEP 2: All pixels marked "2" are activated; 

STEP 49: All pixels marked "49" are activated. 
This ordering results in the sequential generation of 49 different patterns on the screen. 
30 The size of each vicinity is typically selected as a compromise between the following two conflicting con- 

siderations: 

a. A large vicinity makes the system more accurate; and 

b. A small vicinity makes the system quicker because less steps are required in order to sequentially 
inspect all pixels within the vicinity. 

35 The area of the vicinity generally depends on the point spread function of the system, i.e. the extent to 

which the image of the display pixels captured by the system's sensor is blurred. 

Preferably, the sequence of 25 or 49 patterns is preceded by a registration pattern which is employed not 
to determine the intensities of the screen pixels participating in any particular pattern but rather to determine 
the registration of all patterns in the sequence, relative to the pixels of sensor 160. Typically, the registration 
40 pattern comprises four screen pixels disposed adjacent the four corners of the screen. 

The time interval between switching off of a pattern n and switching on of a pattern n +1 in each sequence 
and between the instant at which image acquisition of pattern n+1 can begin depends on the rise time and fall 
time characterizing the particular display technology. For example, for the active matrix LCD installed in the 
IBM ThinkPad 750C, acquisition may begin when the later of the following two events occurs: 
45 a. The previous pattern n, has decayed sufficiently, e.g. to below 2% of its "on" intensity; and 

b. The current pattern n+1 has risen sufficiently, i.e. to above 98% of its "on" intensity. 

The rise and fall times can be measured by a suitable photodetector such as a PMT (photomultiplier tube). 
Preferably, predetermined blurring of the pattern is introduced in the image acquired by the system's sen- 
sor, in order to increase accuracy by allowing more sensing elements to participate in a local sensing task. 
50 Blurring may be achieved by means of a mechanical displacing unit which may be operative to vibrate or other- 
wise displace the display panel, and/or the sensor and/or an optical element such as a prism or mirror inter- 
posed between the display panel and the sensor. Alternatively or in addition, blurring may be achieved optically, 
as by means of a blurring filter on the camera. 

Referring back to Fig. 1, the system includes a sensor 160 such as a Cohu 4110 digital camera (commer- 
55 cially available from Cohu, San Diego, CA, USA) equipped with a 25 mm lens. The lens is selected so as to 
simultaneously acquire an image of substantially the entire pattern generated on the panel, i.e. the entire area 
of the display panel 100, or almost the entire area thereof, is simultaneously imaged by the sensor 160. 

The lens focal length is preferably selected such that a display panel having a typical diagonal of 1 0 inches 
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is viewed at a distance of nearly 90 cm. This selection minimizes variation of display pixel intensity due to ob- 
servation angle. 

The r solution at which the sensor 160 acquires the image preferably does not substantially exceed that 
of a standard TV camera. The sensor preferably comprises less than 1300 x 1000 sensing elements, or even 
5 less than 800 x 500 sensing elements. For example, the Cohu camera includes 739 x 484 active sensing ele- 
ments. 

The digital video signal generated by the sensor 160, typically having a width of 8 bits, is fed to an image 
processor 170. Control circuitry 180 is operative to accept user input commands and programs and to control 
all system components. Control circuitry 180 and image processor 170 may, if desired, be implemented within 
10 a single unit such as a SPARC 1 0 workstation, commercially available from Sun Microsystems, Mountain View, 
CA, USA, in conjunction with a MAX VIDEO 20 image processor, commercially available from Datacube Dan- 
vers, MA, USA. 

Fig. 4 is a simplified flowchart of a preferred method of operation for the image processor 170 of Fig. 1 . 
The method of Fig. 4 is preferably operative to identify the intensity of each pixel of the inspected display panel 
15 by processing each pattern generated on the display panel and comparing the different patterns generated 
on the display panel. 

The method of Fig. 4 preferably includes the following steps: 

a. STEP 200: Steps 210 to 270 are performed for each of the patterns generated on the display pan- 

el, such as 25 patterns or 49 patterns. 
20 b - STEP 210: Receive the current pattern in digitized form from the sensor 160. To improve the sig- 

nal-to-noise ratio, it is preferable to integrate the pattern's signal over several video frames, such as four 
video frames. 

c. STEP 220: Compensate for performance variations among the camera pixels, for example by sub- 
tracting from each camera pixel value its offset value and subsequently multiplying each subtracted pixel 

25 value by its gain coefficient. 

Preferably, the operational stage of the apparatus of Fig. 1 is preceded by a camera learning stage 
in which the offset values and gain coefficients are determined for each of the camera pixels. 

d. STEP 230: The gray level image of the screen pattern is resampled through convolution with a 
sine function, thereby to generate a new pattern whose resolution is typically greater than that of the orig- 

30 inal pattern. For example, the resolution may be increased fourfold. Resampling through convolution with 

a sine function, which is particularly useful in overcoming aliasing, is a known procedure which is descri- 
bed, for example, in W. H. Press et al, Numerical Recipes in C, Cambridge University Press 1988 pp 
403 - 407. 

STEP 240: A coarse registration between the resampled, increased resolution camera image and the 
current pattern, whose characteristics are known, is determined. The coarse registration is determined by 
inspecting the registration pattern in order to identify the magnification of the imaging process and the 
orientation of the pattern relative to the camera. 

STEP 250: A fine registration between the resampled, increased resolution camera image and the 
current pattern is now determined. The approximate location of each display pixel's image within the re- 
40 sampled camera image is known from the coarse registration of step 240. The vicinity of each approximate 

location is now searched to find a local maximum intensity which is identified as the center of the image 
of the current display pixel. Preferably, the average distance between adjacent display pixel centers is com- 
puted. 

STEP 260: Sum the resampled pixel values falling within a vicinity of the current display pixel image 
45 center. For example, the image processor may sum all resampled pixel values falling within a circle whose 

radius is approximately equal to half the average distance between adjacent display pixel centers. 

STEP 270: Correct for residual aliasing and store the resulting plurality of numerical values as the in- 
tensities for the corresponding plurality of screen pixels included in the current pattern. Aliasing gives rise 
to a periodic modulation of the sums of the pattern dot intensities which is known in the art as a moire 
50 pattern. 

A preferred method for correcting for residual aliasing includes the following steps: 

a. Compute the period and orientation of the moire pattern based on the coarse registration infor- 
mation computed in step 240 and on the known period of the display panel pixels. A preferred method for 
performing the moire period and orientation computation is described in J. Krumm et al, Sampled-grating 
and crossed-grating models of moire patterns from digital imaging , Optical Engineering, vol. 30, no. 2, Feb- 
ruary 1991, pp. 195-206. 

b. Sum the two-dimensional dot pattern intensities along a direction perp ndicular to the wave vec- 
tor of the moire pattern, i.e. along the moire "wavefronts". Normalize by dividing each resulting sum by 
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the number of addends which were added to obtain the sum. 

c. Use the normalized sum vector computed in step b to compute a correction factor. The correction 
factor is typically: 



where: 

S( = the i'th component of the normalized sum vector; and 

A = the average of all components in the normalized sum vector. 

A software implementation of a preferred method for correcting for residual aliasing is described in the 
10 listing entitled DEMO.c which is appended hereto as Appendix F. The routine which performs the method is 
entitled FIX_RESULTS. 

STEP 280: Once a numerical value has been stored for each screen pixel, compute a central tendency of 
the numerical values, such as an average of the numerical values, thereby to define a "normal" intensity for 
the screen pixels. 

15 STEP 290: Identify screen pixels whose intensities are other than "normal" and generate an output indi- 

cation of these screen pixels. 

It is appreciated that the patterns shown and described herein are merely exemplary of a general class 
of pattern sequences in which only a single pixel within a certain vicinity is actuated in any single pattern. All 
pixels within each vicinity are actuated, but only one at a time. 

20 Appendix A is a computer listing of a preferred program which runs on a Sun SPARC 1 0 workstation, com- 

mercially available from Sun Microsystems, Mountain View, CA, USA, with an Open Windows 3.0 environment, 
and with the Pixrect libraries and the software of Datacube's MaxVideo20 image processor, commercially avail- 
able from Datacube, Danvers, MA, USA installed on a hard disk. The hardware of the MaxVideo20 is installed 
on the SPARC workstation bus and connected to the camera 160. Also used as a library are the object files 

25 of W. H. Press et al, Numerical Recipes in C. GCC and ACC are used as compilers. 
The program of Appendix A performs the functions of Fig. 4. 

Appendices B - O are subroutines, termed G RAB_GLO BALS , GRAB_PACKAGE, GRABCENTER, RE- 
MOTE, DEMO, RESAMPLE, CCJJNK, SCAN_FILES, SCANJF, SCAN_TEXT, OPTIONS, PICJO, GRAB and 
IMIO, respectively, which are called by the program of the executable file generated by the makefile of Ap- 
30 pendix A. 

Appendix P is a computer listing of a preferred software implementation of selective pixel actuator 130 of 
Fig. 1. 

A preferred method of utilizing the above Appendices in the above described environment to obtain a PC 
display panel inspection system constructed and operative in accordance with a preferred embodiment of th 
35 present invention, including the following steps: 

a. Type in the files of Appendices A to P using a VI editor. 

b. Compile the files of Appendices A to 0, using the makefile of Appendix A. 

c. To inspect the display panel of a PC such as an IBM ThinkPad 750C, compile Appendix P on the 
PC, using the Borland Turbo C compiler. 

40 d. Connect the RS232 output of the PC and the Sun SPARC workstation using a conventional cable, 

e. On the PC, type: FPD 1 

On the SPARC workstation, type: DEMO 
The SPARC workstation will then load a first pattern onto the PC. Processing of the first pattern is 
described in steps f onward. 

45 f. Open the option menu presented by the DEMO on the SPARC and adjust the following parameters: 

The spacing between the dots on the PC, the number of dots along the horizontal axis and the number of 
dots along the vertical axis. 

g. To performs steps 210 and 230 of Fig. 4, press the GRAB button in order to grab an image into 
the TOOLS memory. 

50 Optionally, the GRABCENTER. C file may be modified to include the process of step 220 of Fig. 4 and 

recompiled, in which case step g will also implement step 220. 

h. Press the PERIOD button on the DEMO tool in the Sun. 

i. Use the SPARC mouse to designate the four registration pattern pixels. At this point, the system 
carries out step 240 of Fig. 4. 

55 j. To perform steps 250, 260 and 270 of Fig. 4, press the ADD button on the tool. The output of the 

process includes the following two files: 

i. GRABBED.VALS, including the intensity values of the pixels included in the pattern, uncorrected for 
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residual aliasing; and 

it. GRABBED. FIXED, including the intensity values of the pixels included in the pattern, corrected for 
residual aliasing. 

If desired, steps f onward may be repeated for other patt rns. To load other patterns, the DEMO.c file may 
5 be suitably modified to generate a new pattern. 

It is appreciated that the particular embodiment described in the Appendices is intended only to provide 
an extremely detailed disclosure of the present invention and is not intended to be limiting. The present inven- 
tion need not be implemented in software and may, instead, be implemented in dedicated hardware. 

It is appreciated that various features of the invention which are, for clarity, described in the contexts of 
10 separate embodiments may also be provided in combination in a single embodiment. Conversely, various fea- 
tures of the invention which are, for brevity, described in the context of a single embodiment may also be pro- 
vided separately or in any suitable subcombination. 

It will be appreciated by persons skilled in the art that the present invention is not limited to what has been 
particularly shown and described hereinabove. Rather, the scope of the present invention is defined only by 
15 the claims that follow: 
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5 CC = acc 

ZC = /usr/lang/acc APPENDIX A 

INC_NR = -I /users /erez/ include H 

LIB_NR = -L/users/ erez /lib -lnmrcp 

DDB = /net /lychee/ users /pub lie/ ddb/ddb2 .o 

G FLAGS = -g 
fO OFLAGS = -04 

CPPFLGS = - 1 /usr/openwin/ include ${IMC_PP} -I. 

LDFLAGS = -L/users/erez/x/xdemo/imagef low/lib -L/users/erez/x/xdemo/lib 
SYSLIBSJSIEW - -limio -lipcx -lube -Ipixrect -1m -Idq 
DCINC = -I /users/ erez/x/xdemo/ image flow/ include 

15 

COMPILE = ${CC} -C -O $<2 ${CFLAGS} ${CPPFLGS} 
ACC = acc 

CCHOME = /usr/local/CC/SCl .0 # C++ directory 

TOOL = -Ipixrect -lxview -lolgx -1X11 

MATH - - lm 

############################### ####^### ########### 

# an implicit compilation rule 
.CO: 

25 $(CC} $ { GFLAGS } -w -c $< -o $*.o ${CPPFLGS} ${DCINC> $<INC_NR> 

################################################## 



20 



ML IB = \ 

/ usr/ lib/ debug /mallocmap. o \ 
30 /usr/lib/debug/malloc . o 

MORE = \ 

/users/erez /lib/opt ions . o \ 
/users /erez / 1 ib/pic_io . o \ 
$ {DDB} 

SCAN_LI3 = \ 

/alg-spc/share/danny/ma/scan. o \ 
/alg-spc/share/danny/ma/cc_link . o 



35 



40 



45 



50 



# # # # ver_t oo 1 . h 

################################################## 

demo: demo . o grab_globals . o grab_package . o grabcenter.o pc /unix/ remote . o 

${CC> -o demo demo.o grab_globais . o grab_package . o grabcenter.o pc/unix/] 
$ (CCHOME) /patch $@ 

FORCE : 



# Comments: 

# libnmrcp.a is a library that cor.taints all objects on sources provided with 

# the book numerical recipes in C, by W.H. Press Cambridge press. 

# The libraries libimio.a libipcx.a libubc.a iibdq.a are libraries provided 

# with datacube frame grabber, the same is for all software under directoy 

# image flow. 

# malloc_debug. o malloc.c xll and pixrect libraries and include files can 

# be bought from SUN Inc . 
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# The file remote, c is a source code that communicate with laptop pc and 

# makes is produce the desired pattern. 



tdefine REF 

tinclude <stdio.h> 
# include <datacube.h> 
10 #include <sys/time.h> 
# include "grab.h" 
# include "grab_globals . 

static char sccsidM = 



APPENDIX B 



"wf/src/datacube/grab @ ( # ) grab_globals . c 



1.2 90/0f 



15 



20 



25 



30 



35 



/* 




wf / src/dat; 


*/ 




REF 


DqSystem 


REF 


DqIPDev 


REF 


DqSurf 


REF 


DqSurf 


REF 


DqSurf 


REF 


DqPipe 


REF 


struct 


REF 


float 


REF 


int 


REF 


int 


REF 


int 


REF 


int 


REF 


int 


REF 


int 


REF 


int 


REF 


int 


REF 


float 


REF 


double 


REF 


double 


REF 


double 



@ C#)grab_global3.h 



1.6 91/05/23 



oSystem ; 

oAaOO, cAsOO, oAgOO, oApOO ; 
oAcqSrc, oAcqDst , oAcqDst2; 
poAcqDst [3 ] ; 

oDispSrc, oDispDst, oOvlySrc ; 
oAcqPipe, oAcqPipeCont , oDispPipe ; 
timeval time_start , time_end ; 
run__t ime ; 
iPat, iPatdone ; 
iPatE[4] ,i?atdoneE[4) ; 

DC_ADC_width , DC_ADC_height , DC_HAuxSt art , DC_HAuxEnd; 
DC_VsyncToAct ive , GRAB_FORMAT , DC_ INTERLACE ; 
AS„S 1_STATE , AS_S 5_STATE , DC_VSYNC_START_TIME 
AS_S9_STATE, AS_£11_STATE ; 
DC„A S_S 3 _S OURC E , D C_ AS _S 1 3 _S OU RC E ; 
DC_TEXT_COLOR, DC_MARKER_COLOR ; 
DC_dcof f ; 

DC_AnGain, DC_AnOffset; 

DC_FrameFreq, DC_LineFreq, DC_HSyncToAct ive , DC_HAct iveTime ; 
DC_AnLpf , DC_AnBoost ; 



, DC_SYNC_SOURCE ; 
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15 



*define REF extern AppENDIx c 

#include <stdio.h> 
# include <datacube.h> 
# include "cext.h" 
#include <sys/t ime . h> 
# include "grab.h" 
# include "grab_globals . h" 
# include "dbug.h" 

/**$b*/ 

/* routine to do initialization of the datacube 

devices 
*/ 

int init_maxvideo20 () 

/**$&*/ 
{ 

20 oSystem = dqCreateSys ( "dqsys . cfg " ) ; 

oAaOO = dqFindlPDev {oSystem, "aaQO") 

OAs 00 = dqFindlPDev {oSystem, "asOO") 

oAgOO = dqFindlPDev (oSystem, "agOO") 

oApOO = dqFindlPDev {oSystem, "apOO") 

dqSetTimingSwitch(oAsOO , AS_S3 , 5) ; /* CONNECT AS_K5 TO AUXOUT */ 
25 dqSetTimingKVal (oAsOO , AS_K5, 0); /* SET ITS OUTPUT TO LOW */ 

> 

/**$b*/ 

/* routine to prepare connection to grab frame from 
the AS to MEMO 

30 */ 

int prep_grab (width, height , p2_st ) 
int width ,* 
int height ; 

int *p2_st; /* OUT - error status */ 

/**$e*/ 
{ 
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/* specify camera video signal 

oAcqSrc = dqCreateSurf (oAsOO, AS_ADC, DC_ADC_width, DC_ADC_height ) ; 
asSpecVideoSync C OAsOO , AS_ADC , DQ_VIDSYNC_COMP_VID , DQ_PIXEjjCLOCK_NONE , DQ_TRUE , D( 
dqSetAnCouple {oAsOO , AS_COUPLE , DQ_COU?LE_AC) ; 

dqSetAnRef (oAsOO, AS_ADC_OFFS , DQ_DC_REF_GEN_CLAMP) ; /* GEN is used usually *. 
asSetFif oxf r (oAsOO , AS_F I FO_I RREGUL AR ) ; 

dqSpecVideoLine (oAsOO , AS_ADC, DC_LineFreq, DC_HSyncToAct ive , DC_HAct ive Time ) ; 
dqSpecVideoFrame (oAsOO , AS_ADC , DC _ INTERLACE , DC_?rameFreq, DC_VsyncToActive) ; 

asSpecHAux (oAsOO , DC_HAuxStart , DC_HAuxEnd) ; / * set after spec video=>4 times \ 

/* set the switches for the external H and V sync */ 

dqSetSyncSrc (oAsOO , AS_LPC, DC_SYNC_SOURCE) ; 

dqSetTimingSwitch (oAsOO , AS_S1 , AS_S1_STATE) ; /* PLL input during vsync */ 
dqSetTimingSwitch (oAsOO ,AS_S5 ,AS_S5_STATE) ; /* Horiz. proc . input */ 

/* dqSetTimingSwitch (oAsOO , AS_S11 , 0 ) ; vertical counter reset external = 0 */ 
/* dqSetTimingSwitch (oAsOO ,AS_S6 , I ) ; take VSYNC from ecsync */ 

dqSetTimingSwitch (OAsOO ,AS_S1 1 . AS_S11_STATE ) ; 
daSet TiminaSwit ch ( oAsOO . AS S9,AS S9 STATE); 
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dqSetTimingSwitch (oAsOO , AS_S13 , DC_AS_S13_SOURCE) ; 
/* 2 => Set VME bus interrupt to get AUXIN */ 

/* Set LPF and BOOST values */ 

5 

dqSetAnLPFCutof f ( OAsOO , AS_LPF, DC_AnLpf ) ; 
asSetLPFBoost (oAsOO , DC_AnBoost ) ; 

/* CONNECT AS_K5 ( 5 ) TO AUXOUT */ 

dqSetTimingSwitch (oAsOO ,AS_S3 ,DC_AS_S3_SOURCE) ; 
10 if (DC_VSYNC_START_TIME ! = 0) 

_dqPokeWord (oAsOO , 0x14 , OxFFFF, DC_VSYNC_START_TIME) ; 

oAcqDst = dqCreateSurf (oAaOO , AA_MEM0 , width, height); 
oAcqDst2 = dqCreateSurf (oAaOO , AA_MEM1 , width, height); 
gsclearview (oAcqDst, 0) ; 
gsClearView {oAcqDst2 / 0) ; 

dqConnect (oAaOO , DQ_CSG, AA_O?00) ; 
dqConnect (oAaOO , DQ_CSG, AA_O?01) ; 

20 poAcqDst[0] = oAcqDst; 

poAcqDst[l] = OAcqDst 2; 

poAcqDst[2] = (DqSurf) NULL; 

} 

25 /**$b*/ 

/* routine to grab continuous frame from 
the AS to MEM1 

*/ 

int grab_cont inuous Cp2_st) 

int *p2_st; /* OUT - error status */ 

/**$e*/ 

{ 

int i Event ; 

35 dqSetAnGain (oAsOO , AS_GAIN / DC_AnGain) ; 

dqSetAnOf f set (oAsOO , AS_COUPLE_OFFS , DC_dcoff) ; 
dqSetAnOf f set {oAsOO , AS_ADC_OFFS, DC_AnOffset) ; 

dqSetTimingKVal (oAsOO , AS_K5, 1); /* SET ITS OUTPUT TO HIGH */ 
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oAcqPipeCont = dqCreateMult iDst Pipe (poAcqDst , DQ_TRG_CONT INUOUS ) ; 
dqArmPipe (oAcqPipeCont , DQ__DSM„PI?E) ; 
dqFirePipe (oAcqPipeCont) ; 

*p2_st = 0 ; 

} 

/**$b*/ 

/* routine to grab oneshoc frame from the AS to MEMO 
* / 

int grab_oneshot (p2_st) 
50 int *p2_st; /* OUT - error status */ 

/**$e*/ 
{ 

int i Event ; 



dqSetAnGain (oAs 0 0 , AS_GAIN , DC_AnGain) ; 
dqSetAnOf f set (oAsOO , AS_COUPLE_OFFS , DC_dcoff) ; 
dqSetAnOf f set {oAsOO , AS_ADC_OFFS, DC_AnOffset) ; 
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iEvent - ernFindPipeEvent (oAcqPipe) ; 
DC_inquire_grab_param ( ) ; 
dqFirePipe (oAcqPipe) ; 

dqSetTimingKVal {oAsOO, AS_K5 , 1); /'* SET ITS OUTPUT TO LOW */ 
emWaitRef Event (iEvent, 1) ; 

dqSetTimingKVal (oAsOO , AS_K5, 0); /* SET ITS OUTPUT TO LOW */ 
*p2_st = 0 ; 



} 



/**$b*/ 

/************************************ **************** i 

/* routine to prepare and fire the display pipe, and 
prepare the overlay surface and connections. 

*/ 

15 int display _pipe_VGA (p2_st) 

int *p2_st; /* OUT - error status */ 

/**$e*/ 

{ 

oDispSrc = dqDupSurf (oAcqDst2 ) ; 

oOvlySrc = dqCreateSameSizeSurf (oAaOO , AA_MEM3 , oAcqDst2); 

20 

/* Connect DispPipe */ 

dqC onnec t { oAa 0 0 , AA_DMl , AA_CGG ) 
dqConnect (oAaOO , AA_DISP1 , AA_DM1 } ; 

25 dqConnect ( oAgO 0 , AG_GREEN , AG_DAC_LUT_SRC } ; 

dqConnect (oAgOO , AG_DAC_LUT, AG_DAC_SRC) ; 

dqSetSyncEnable<oAgOO, AG_V_GREEN , DQ_TRUE) ; 
dqSpecXmtExpansion(oAaOO , AA_DISP1, 4, 1); 
dqSpecXmt Expansion (oAaOO , AA_DISP3 , 4, 1); 



/* Define surfaces on AG_DAC */ 

dqSpecStdSurf Size (oAgOO , AG_DAC, VGAPlusXSize , VGAPlusYSize) ; */ 

dqSpecStdSurf Size {oAgOO, AG_DAC , RS170XSize, RS170YSize) ; 
oDispDst = dqCreateStdSizeSurf (oAgOO , AG_DAC) ; 



/* Attach gateways to surfaces */ 

dqAttachSurfGate(oDispDst , AG_RCV) ; 
40 dqAttachSurfGate (oDispSrc , AA_DISP1) ; 

/* Overlay connections */ 

dqConnect (oAaOO , AA__DM3 , AA„CGO) ; 
dqConnect {oAaOO , AA__DISP3 , AA_DM3 } ; 
45 dqConnect ( oAgO 0 , AG _CGO__N0 , AG_OVLY_LUT_SRC ) ; 

dqSetKVal (oAgOO , AG_OVLY_MASK , OxF) ; 
dqSetOvlyMask (oAgOO , AG_OVLY, Cx?) ; 
dqSetOvlyOp (OAgOO , AG_OVLY , DQ_OVLY_ON) ; 
dqAttachSurfGate (oOvlySrc, AA__DISP3 ) ; 
aglnitOvlyLutColor (oAgOO) ; 



/* Create continuous pipe */ 

oDispPipe = dqCreatePipe (oDispDst , DQ_TRG_CONTINUOUS) ; 

/* Arm and fire DispPipe */ 

dqArmPipe (oDispPipe, DQ_DSM_PIPS) ; 
dqFirePipe (oDispPipe) ; 
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/* routine to find the element: event: ot the sensor 
in AS 

*/ 

int create_grab_pipe (p2_st ) 

int *p2_st ; /* OUT - error status */ 

{ 

oAcqPipe = dqCreateMult iDst Pipe (poAcqDs t , DQ_TRG_ONESHOT ) ; 
dqArmPipe (oAcqPipe, DQ_D£M_PIPE) ; 

} 

/* routine to define a pat for one shoe grabbing */ 

int prep_oneshct_grab_pat (p2_st) 

int *p2__st ; /* OUT - error status */ 

{ 

int iPipeEvent ; 

emBegPatDef ( ) ; 

/* dqConnect (oAaOO, DQ_CSG, AA_OP00) ; redundent- yes */ 
dqSetAnGain (oAsOO , AS_GAIN, DC_AnGain) ; 
dqSetAnOf f set (oAsOO , AS_ADC_OFFS, DC_AnOffset) ; 
dqArmPipe (OAcqPipe, DQ_DSM_RECT) ; 
iPipeEvent = emFind Pipe Event (oAcqPipe) ; 
dqFirePipe (oAcqPipe) ; 
emWaitRef Event (iPipeEvent, 1) ; 

dqSetTimingKVal (oAsOO, AS_K5, 0); /* SET ITS OUTPUT TO LOW 



iPat = emEndPatDef ( ) ; 
iPatdone - eruFindPat Event ( i Pat ) 



} 



/**$b*/ 

/* routine to define a pat in order to wait for the sensor event 
and then grab a picture 

*/ 

int prep_grab_pat (proc„rect_vec , gain_vec, o:fset_vec, p2_st) 
DqRect proc_rect_vec [ ] ; / * IN * / 
double gain_vec[] ; /* IN */ 

double otfset_vec[] ; /* IN */ 

int *p2_st; /• OUT - error status */ 

/**$e*/ 
( 

int iPipeEvent, iSensorcvenc, i ; 

45 emBegPatDef f ) ; 

dqConnect (OAaCO, DQ_CSG, AA_OPG0) ; 

for (i = 0; i«:3; i + + > 
( 

dqSetAnGain (oAsOO , AS_GAIM, D(;_AnGain) ; 



dqSetAnOr fset (OAsOO , A£_ADC_OFFS, DC_AnOf f set ) ; 

dqSpecSur f AlignPoint (oAcqDst ,0,0); 

dqSetSurf ProcRect ( oAcqDs t , proc.rec t_vec [ i ] } ; 

daSoecSur: AlianPoint (oAcaDsc , orcc rect vec [ i ] . IXMin , cr oc rect veciil.lYt 
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dqArmPipe { oAcqPipe, DQ_DSM_RECT) ; 
iPipeEvent = emFindPipeEvent (oAcqPipe) ; 
dqFirePipe ( OAcqPipe) ; 
emWaitRef Event (iPipeEvent, 1) ; 

dqSetTimingKVal (oAsOO , AS__K5, 0); /* SET ITS OUTPUT TO LOW */ 
iPat = emEndPatDef ( ) ; 
iPatdone = emF ind Pat Event ( i Pat ) ; 

} 

/**$b*/ 

/****************** 

int grab_oneshot_PAT (p2_st) 

int *p2_st; /* OUT - error status */ 

/**$e*/ 

{ 

20 dqSetTimingKVal (oAsOO, AS_K5, 1); /* SET ITS OUTPUT TO HIGH */ 

emMarkRef Event ( iPatdone) ; 
emRunPat { iPat ) ; 
emWaitRef Event (iPatdone, 1) ; 

*p2_st = 0 ; 

25 > 

/**$b*/ 

/**********************************. 

/* routine to define a pat in order to wait for the sensor event 
and then grab a picture 

*/ 

30 int grab_af ter_triger (p2_st) 

int *p2_st; /* OUT - error status */ 

/**$e*/ 

{ 

int i Event AS_XMT; 

/* 

#ifdef time 
35 get timeof day (&time_s tart, NULL) ; 

#endif 
*/ 

iEventAS_XMT = emFindElemEvent ( oAsO 0 , AS_XMT, DQ_EV_DONE) ; 
emMarkRef Event (iPatdone) ,- 
/* emRunPat ( iPat ) ,-*/ 

emRunPatOnEvent ( iPat , iEventAS_XMT , 1); 
dqSetTimingKVal (oAsOO , AS_K5, 1); /* SET ITS OUTPUT TO HIGH */ 
emWaitRef Event (iPatdone, 1) 

/* 

emCyclePatOnEvent ( iPat , iPatdone ) ; 
45 emSimulateEvent (iPatdone) ; 

printf { "Waiting for Vsync\n" ); 

*/ 
/* 

#ifdef time 

get timeof day (&t ime_end,NULL) ; 

run_t ime = time_end.tv_sec - t ime_start . tv_sec ^ 

( time_end. tv__usec - time_start . tv_usec ) * le-6 ? 
dbug_msg_out (user.level, -time to grab frame after triger is %f sec\n",run tir 
#endif — 
*/ 

*p2_st = 0 ; 
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} 

int prep_E_pat (proc_rect_vec , p2_st ) 
DqRect proc_rect_vec [ ] ; / * IN 
int *p2_st; /* out - error status 



int i , iPipeEvent ; 

for (i=0 ; i<4 ; i++) { 
emBegPatDef ( ) ; 



dqConnect (oAaOO, DQ_CSG, AA_OP00) ; 
dqSpecSurfAlignPcint (oAcqDst , proc_rect_vec [ i] . lXMin , proc_rect„vec [ i ] . lYMin) 
dqSetSurf ProcRect (oAcqDst ,proc_rect_vec [0] ) ; 

dqArmPipe (oAcqPipe, DQl_dSM_RECT) ; 
iPipeEvent = emFind Pipe Event (oAcqPipe) ; 
20 dqFirePipe (oAcqPipe) ; 

emWai t Re f Event {iPipeEvent, 1) ; 

dqSetTimingKVal (oAsOO, AS_K5 , 0); /* SET ITS OUTPUT TO LOW */ 
iPatE[i] = emEndPatDef ( ) ; 

iPatdoneE[i] = emFindPat Event < i Pa tE [ i ] ) ; 



} 



int run_E_pat (i,p2_st) 

int i '* / * IN pat number */ 

int *p2_st; /* OUT - error status V 

/**$e*/ 

{ 

int i Event A£_XMT; 



iEventAS_XMT = emFindElemEvent ( oAsOO , AS_XMT, DQ_EV_DONE) • 
emMarkRef Event ( iPatdoneE [ i ] } ; 
emRuriPatOnEvent (iPatEfi] , i Event AS_XMT ,1); 
35 dqSetTimingKVal (oAsOO, AS_K5, 1); /* SET ITS OUTPUT TO HIGH */ 

emWaitRef Event ( iPatdoneE [ i ] , 1) • 



*P2 



/**Sb*/ 

40 



void load_grab_param (p2_st ) 

int *p2_st; /* OUT - error status 

/**$e*/ 

{ 



FILE *fp_jparam; 

char param[64]; 

char svalue [64 ] ; 

50 int i, j , value; 

fp_param = fopen < "grab_parameters .da: 



" r " ; 



while (f scant ( fp_parain, 11 %s %s " , par am, s value) ! = EOF) 
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value = atoi (svalue) ; 

if (strcmp (param, M DC_ADC_width" ) = = 0 ) { 
DC_ADC_width = value; 

printf C\n DC_ADC_width = %d \n " , DC_ADC_width) ; 

5 } 

else if (strcmp (param, " DC_ADC_h eight " ) = = 0 ) { 
DC_ADC_height = value; 

printf ("\n DC_ADC_height = %d \n" , DC_ADC_height ) ; 

10 else if (strcmp (param, "DC^NTERLACE" ) = = 0) { 

DC_ INTERLAC E = value; } 
else if (strcmp (param, *'DC_HAuxS tart ") = = 0) { 

DC_HAuxStart = value; } 
else if ( strcmp (param, " DC_HAuxEnd " ) ==0 ) { 
DC_HAuxEnd = value; } 
15 else if ( strcmp (param, ,( DC_Vsync To Active" ) ==0) { 

DC_VsyncToAct ive = value; 

printf ("\n DC_VsyncToAct ive = %d \n " , DC_VsyncToAct ive ) 

else if ( strcmp (param, "DC_AnGain" ) ==0 ) { 
DC_AnGain = ((double) value) /10.0; } 
20 else if (strcmp (param, '*DC_AriOff set" ) ==0) { 

DC_AnOffset = ((double) value); } 
else if (strcmp (param, "DC_FrameFreq" ) = = 0) { 

DC_FrameFreq = ((double) value); } 
else if (strcmp (param, "DC^LineFreq" ) ==0 ) { 

DC_LineFreq = {(double) value); } 
else if (strcmp (param, "DC_HSyncToAct ive" ) ==0) { 
DC_HSyncToActive = ((double) value) /100 . 0 ; } 
else if (strcmp (param, "DC_HAct iveTime" ) ==0) { 
DC_HActiveTime = ((double) value) /100 . 0 ; } 
else if ( strcmp (param, "DC_AnLpf " ) ==0 ) { 
DC_AnLpf = ((double) value) /100 . 0 ; } 
else if (strcmp (param, "DC_AnBoost " ) ==0) { 
DC_AnBoost = ((double) value) / 100 . 0 ; } 
else if ( strcmp (param, "AS_S1_STATE" )==0) { 
AS_S INSTATE = value; } 

else if (strcmp (param, M AS s 5 STAT E 11 ) = — 0 ) { 

35 AS_S5_STATE = value; } 

else if ( strcmp (param, l, AS_S9_STATE" )==0) { 

AS_S9_STATE = value; } 
else if ( strcmp (param, " AS_£11_STATE M ) ==0 ) { 

AS„S1 INSTATE = value; } 
else if ( strcmp (param, ,, DC_VSYMC_START_TIME ,, ) = = 0 ) { 
40 DC_VSYNC_START_TIME = value; } 

else if (strcmp (param, " DC_£ YNC_SOURCE M ) = = 0) { 

DC_SYNC_SOURCE = value; } 
else if ( strcmp (param, "DC_AS_S3_SOURCE" ) ==0) f 

DC_AS_S 3 _SOURC E = value; } 
else if ( strcmp (param, ,l DC__AS_S13_SOURCE " ) ==0) { 

DC_AS_S13_SOURCE = value; } 
else if ( strcmp (param , "DC_dccf f " ) ==0 ) { 
DC_dcoff = ((float) value) /10.0 ; } 
else if ( strcmp (param, u DC_TEXT_COLOR" ) ==0 ) { 
DC_TEXT_COLOR = value; } 
so else if ( strcmp (param, " DC_MARKER__COLOR" ) =-0) { 

DC_MARKER_COLCR = value; } 

} 

*p2_st = 0; 
55 f close ( fp_param) ; 

} 
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int DC_inquire_grab_param ( ) 

{ 

int par am , phs , phe ; 
double dparam; 
DqEnum Eparam ; 

dparam = dqlnqAnGain (oAsOO , AS_GAIN) ; 
printf ( w \n AS GAIN = %f " , dparam) ; 
dparam = dqlnqAnOf f set (oAsOO , AS_ADC_OFFS ) ; 
printf (" \n AS ADC OFFSET = %f dparam) ; 
dparam = dqlnqAnOf f set (oAsOO , AS_COUPLE_OFFS) ; 
printf ("\n AS COUPLE OFFSET = % f dparam) ; 
Eparam = dqlnqAnCouple (oAsOO , AS_COUPLE) ; 
printf ("\n AS COUPLE = %d (AC=5072 , DC= 507 3 ) " , Eparam) ; 
/* asAskHAux { oAs 00 , &phs,&phe); 

printf ("\n ASHAUXSTART = %d , ASHAUXEND = %d ",phs,phe); 

*/ 

dparam = dqlnqAnLPFCutof f (oAsOO , AS„LPF) ; 
printf ("\n AS LPF Cutoff = %f " , dparam); 
dparam = asInqLPFBoost (oAsOO } ; 
printf ("\n AS LPF Boost = %f dparam) ; 
_dqPeekWord (oAsOO , 0x14, OxFFFF , &param) ; 
printf ( H \n DC_VSYNC_START_TIME= %d " , par am) ; 

25 } 
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#define REF extern 

#include <stcio.h> 
# include <da^acube.h> 
# include "cext . h n 
# include "imio. h" 
# include <sys/time.h> 
# include " grab . h M 
#include "grab_globals . h' 
# include "dbug.h" 

#define SMALL_X_SIZE 2 56 
#define SMALL_Y_SIZE 2 56 
# define X_OFFSET 20 0 

tdefine Y_OFFSET 150 
# define S MALL_I MAGE_F LAG 



APPENDIX D 



static int f irst_time=l ; 
dqLimit IPDevSet (AA AS AG AP) ; 

int gr ab_ma in ( avgnum , r et_buf ,xsize,ysize,xst art , ys t ar t , xend , vend ) 
int avgnum; 
unsigned char **ret_buf; 
int *xsize; 
int *ysize; 
int xstart; 
25 int ystart; 

int xend; 
int yend; 
{ 

static int stat , i , j , k, switch_value, Hshrink, Vshrink,p2 st; 

static int switch_control ; ~~ 
30 static char Text [ 64 ] , pcUserlnpBuf [ 80 ] ; 

static DqRect grabR[4] , adcR ; 

static double gain_val[4] ; 

static double offs_val[4] ; 

static DqByte frame[480j [512] ; 

static ohi_image__p depth_img [ 4 ] ; 

35 static char depth_name[4 ] [64] ; 

static int cnti , cnt j , cntk; 
static int *intbuf; 



if (first_time) { 

load_grab_param(&p2__st) ; 
init_maxvideo2 0 ( ) ; 
i f ( SMALL_IMAGE_FLAG ) 

*ret_bur =malloc (SMALL_Y_SIZE*SMALL_X_SIZE) ; 
else 

*ret_buf =malloc ( { DC_ADC_width) * { DC_ADC_height } ) ; 
xstart=0; 
ystart=0 ; 

xend==DC_ADC_width; 
yend=DC_ADC_height ; 

prep_grab ( 1024 , 1 02 4 , <*scat ) ; 

oAcqPipe = dqCrea t eMult iDst Pipe (poAcqDs t , DQ__TRG_ONESHOT ) 
dqArmPipe < oAcqPipe , DQ_DSM__PIPE ) ; 
printf {"prep over\n"),* 

£ irst_tin:e=0 ; 

} 

Drin:f ("Averaoe Number %d\n " . avcmum ) : 
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adcR . iXMin = 0 r 
adcR. lYMin = 0 ; 
5 adcR.lXMax = DC_ADC_width- 1 ; 

adcR.lYMax = DC_ADC_height-l; 

if ( SMALL_IKAGE_FLAG ) { 
xstart=0; 
ystart=0; 
10 xend=DC_ADC_width; 

yend=DC_ADC_height ; 

if (xsize! =NULL) *xsize=SMALL_X_SI?E- 
if (ysize!=NULL) *ysize=SMALL Y size' 
} else { ~ 

if (xsize!=NULL) *xsize=adcR_ lXMax+1- 
15 } lf fysize!=NULL) *ysize=adcR. lYMax; 

intbuf = (int*> calloc ( <DC_ADC_vidth> - ( DC_ADC_height ) , sizeof (int ) ) ; 

for (cntk=0;cntk<avgnum ; cntk++) { 
20 grab_oneshot (&stac) ; 

print f Cone shot over\n")- 

dqSpecSurfAlignPoint (oAcqDst, 0,0)- 
dqSetSurf ProcRect (oAcqDst , adcR) • 

25 w?f^ GC K { °^ C ? D ? C i &ad0R ' ^P^img CO]- >image J ; 

V n i nt ( Ly %d %d %d %d ^Vxstart /y start,xend,yend); 
for (cnt 3 =ystart;cntj<yend;cnt 
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for (cnti=xstart ; cnti<xend; cnti++ ) 
intbuf [cntj * (adcR . lXMax+1 ) +cnti ] + = 
^ ( int ) dept h_img [ 0 ] ->image [cntj * ( adcR . 1 XMax. 1 ) +cnt i 3 

} 

print f ("summing over \n"j ; 



if (SMALL_IMAGE_FLAG) ( 

for <cntj=0;cnt j<SMALL_Y_SIZE; cnt { 
for ( cnt i =0 ; cnt i< SMALL_X_S I ZE ; cr t i + + ) 
< *ret__buf ) [cntj *SMALL_X__SIZE+cnt i ] = 
} xntbuf [ (Y.OFFSET+cnnj ) * (adcR. lXMax + l) + cnt i + X.OFFSET] /avgnum; 

} else { 

for (cntj=ystart ; cnt j <yend; cnt j ++ ) { 
for (cnti^xstart ; cnti<xend; cnti+* j 

( *rer_buf ) i cnt j * (adcR. lXMax+1 ) +cnti ] = 
45 } intbuf [cntj - (adcR. lXMax + l ) + cnt i J / avgnirn; 

} 

printf ("Ave done \n"] ; 
free ( intbuf} ; 

50 printf ("free over\n") ; 

dqDisposePipe (oAcqPioe ) ; 
dqDisposeSurf (oAcqDst) ; 
dqDisposeSurf (oAcoSrc) ■ 
printf ("Dispose over 
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return (GOOD_GRAS 
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int print_switches_state ( ) 

{ 

int switch_val; 

switch_val = dqlnqTimingSwitch (oAsOO , AS_S1); 

printf("\n Switch value AS_S1 = %d \n M , switch_val) ; 

switch_val = dqlnqTimingSwitch (oAsOO , AS_S3 ) ; 

printf("\n Switch value AS_S3 = %d \n" , switch_val) ; 

switch_ val = dqlnqTimingSwitch (oAsOO , AS_S5); 

printf( M \n Switch value AS_S5 = %d \n M , switch_val ) ; 

switch_val = dqlnqTimingSwitch (oAsOO , AS_S6 ) ; 

printf( M \n Switch value AS_S6 = %d \n" , switch_val) ; 

switch_val = dqlnqTimingSwitch (oAsOO , AS_S8 ) ; 

printf("\n Switch value AS_S8 = %d \n M , switch_val) ; 

switch_val = dqlnqTimingSwitch (oAs 00 # AS_S9 ) ; 

printf( M \n Switch value AS_S9 = %d \n" , switch_val) ; 

switch. val = dqlnqTimingSwitch (oAsOO , AS_S10) ; 

printf( M \n Switch value AS_S10 = %d \n" , switch__yal ) 

switch_val = dqlnqTimingSwitch (oAs 00 , AS_S11) ; 

printf( M \n Switch value AS_S11 = %d \n u , switch_val) 

switch__val = dqlnqTimingSwitch (oAsOO , AS_S13); 

print f("\n Switch value AS_S13 = %d \n" , switch_val ) 
return (0) ; 
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#include <stdio.h> APPENDIX E 

#include <sys / f cnt 1 . h> 
# include <sys /termios . h> 
#include <sys /types . h> 
#include <sys/time.h> 

/* LAYER #1: COMMS LIBRARY */ 

initcomx{ port_ name ) 
char *port_name; 

{ 

int fd; 

int baud_rate; 
struct termios t; 

if ({fd = open( porc_name, 0_RDWR I o_CR£AT ,0644) ) < 0) { 
^ fprintf (stderr, "couldn't open output port %s\n" , port_name ); 

exit (2) ; 
*/ 

return (0) ; 

} 

baud__rate = B9600; 
20 if ( i oc 1 1 ( f d , TCGETS , & t ) >= 0) { 

t.c_iflag &= - (INLCRI ICRNLI IUCLC) ; 
t.c_oflag & = ^OPOST; 
t.c_cflag = baud_rate ICS8 ICREAD; 
t.C_lflag &= - (ICANONI ISIGI ECHO) ; 
t.C_CC[VMIN] = 1; 

t .c_cc[VTIME] = 0; 
ioctl (fd,TCSETS,&t) ; 

} 

return fd; 
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int rcv.timeout = 5; /* Allow up to 5 seconds for response V 



rcv_byte( int fd, char *c ) 

{ 

fd_set readfds, mask; 
struct timeval timeout; 
int n; 



FD_ZERO (&mask) ; 
FD_SET(fd,&mask) ; 
40 readfds = mask; 

timeout . tv_sec = rcv_timeout; 
timeout . tv_usec = 0; 

n = select ( FD_SETSIZE , &readf ds , 0, 0, &timeout)* 
if( n > 0 FD_ISSET<fd,&readfds) ) 
return read ( fd, c, 1 ) ; 
45 else 

return - 1 ; 

} 

xmt_str{ int fd, char *s ) 

r 
\ 

50 #ifdef DEBUG 

print f ( " ' %s ' " , s) ; 
#endif 

write ( fd, s, strlen(s) ); 

} 



endcomx ( int fd ) 
{ 

c lose ( f d ) ; 
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) 

5 

/* LAYER #2: REMOTE PROCEDURE LIBRARY */ 

remote_execute ( inc fd , char *xmt) 
{ 

char b; 
10 i nt rt =; 

xmt_str< fd, xmt ),- 

rc = rcv_byte< fd, &b ); 

if ( rc -1 ) 

return 0; 
else 

return 1; 

) 



15 
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remote_rgb( int fd, int index, int r, int g, int b ) 
char xmt [80] ; 

sprintf( xmt, "r %d %d %d %d\n\r'\ index, r, g, b ); 
return remote_execute ( fd, xmt ); 
} 

remote_block( int fd, int x, int y, int dx, int dy, int index ) 
25 char xmt [80] ; 

sprint f( xmt,"b %d %d %d %d %d\n\r" , x, y, dx , dy, index ) ; 
return remote_execute ( fd, xmt ); 

} 

30 

remote_circle ( int fd, int x, int y, int radius, int index ) 
char xmt [80 ] ; 

sprintf( xmt,"c %d %d %d %d\n\r", x, y, radius, index ); 
return remote_execute ( fd, xmt ); 

35 } 

remote_grid( int fd, int x, int y, int dx, int dy, int sx, int sy, int index ) 
char xmt [80] ; 

sprintf( xmt,"g %d %d %d %d %d %d %d\n\r" , x, y, dx, dy, sx, sy, index ); 
return remote_execute ( fd, xmt ); 
} 

remote_line( int fd, int x, int y, inc x2 , inn y2 , int index ) 
45 char xmt [ 80 ] ; 

sprintf( xmt,"l %d %d %d %d %d \n\r" , x, y, x2 , y2 , index ); 
return remote_execute ( fd, xmt ); 
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remote_text ( int fd, int x, int y, char *s, int indev j 
{ 

char xmt [256] ; 

sprintf( xmt, "C %d %d %d %s\n\r H , x, y, index, s ); 
return remote_execute ( fd, xmt ) ; 

} 
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raised_blocM int fd, int x, int y, mt tfx, mt dy ) 

5 remote_biock ( fd, x-1, y~i, dx+2, dy*? 15 )- 

remote_block< fd, x, y, dx+1, dy+1, o~j; 

remote_b!ock ( fd, x-l, y+dy, 1, 1, 0); 

remote_block ( fd, x, y, dx, dy,' 7'); 

10 lowered__block< int fd, int x, int y , int dx f int dy ) 

remote_block{ fd, x-1, y-1, dx+2, dy + 2 0 )- 

remote_block( fd, x, y, dx+1, dy+1, 15 } ; 

remote_block( fd, x-1, y+dy, 1, 1, 1^) . 

remote_block< fd, x, y, dx, dy! 7 ' ) • " 
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15 

windowC int fd, int x, int y, int dx, mt dy , int color ) 

raised_block( fd, x-4 , y-4, dx + 8, dy+8) • 
lowered_block( f d, x , y , dx , dy ) ; 
^ reraote_block{ fd, x, y, dx, dy, color ); 

remote_test ( int fd ) 
{ 

char tmp [ 80 ] ; 

int n, i,x,y,dx,dy,xinc,yinc; 
/* Clear Screen */ 

remote_block( fd, 0, 0, 640 , 480, 0 )■ 
remote_grid( fd, 0, 0, 64 0, 4 80, 3, 3,'oxB) ; 

30 /* Color Block Window */ 

x = 30, y=30, dx = 270, dy = 200; 

remote_grid( fd, x+6, y + 6, dx + 6, dy + 6, 3, 3 8 )■ 
wmdow( fd, x, y, dx, dy, 1 ) ; 

/* Grid Window */ 

35 x = 33 0, y=30, dx = 270, dy - 2 00; 

remote_grid( fd, x+6, y+6, dx+6, dy + 6, 3, 3 8 )■ 
window ( fd, x, y, dx, dy, 0 ) ; 
remote_grid{ fd, x, y, dx , dy \ 2, 2, 1 )■ 
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/* Text Window */ 

x = 30, y=255, dx = 270, dy = 200; 



window ( fd, 


x, y, 


dx, 


dy , 7 


remote_text { 


fd. 


x+10, 


y+10, 


remote_text ( 


fd, 


x+10 , 


Y+10, 


remote_text ( 


fd, 


x+10 , 


y+10, 


y + = 20; 






r emote text ( 


fd, 


x+10 , 


y+10 , 


y + = 20; 






remote_text ( 


fd, 


x+10 , 


y+10 , 


rernote_text ( 


fd, 


x+10 , 


y+10 , 


remote text ( 


f d , 


x + 10, 


y+10 , 


y + = 20; 






r emot e_text { 


fd, 


x + 10, 


y+ic , 



S ) 



"A successful tool is one that '• , 1 ) , y+=i0; 
"was used to do something " , 1 ), y+=10; 
"undreamed of by it's author", 1 ), y+=l0; 

S. C. Johnson", 1 ), y+=10; 

Whenever anyone says » , l ), y + = io,- 

"'theoretically, they really ", 1 ) ] y+=10; 
"mean, 'not really. », 1 ), y+= io ; 

Dave Parnas" , 1 ), y+=10; 



/* Graphics Window */ 

x = 330, y=255, dx = 270, dy = 200; 
remote_grid( fd, x+5, y-6 , dx+6, dy+6, 3, 3, 8 ) 
window ( f d , x , y , dx , dy , C ) * 
55 n = 40; 
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xinc = dx/n; 
yinc = dy/n; 
for ( i=0; i<n ; { 

remote.linef fd, x,y+i* y inc,x+xinc*i , y+dy-1 i>. 

} remote.lmef fd, x + i*xinc,y , x+ dx-l , y^'yinc! 1) ; 

x += dx/2; 
y + = dy/2; 
10 for { i = 0; i<16 ; i++ ) { 

remote_circle( fd, x, y, 3*1, 15-i ). 
remote_circle( fd, x ( y, 3*i+l, 15-i')- 
remote_circle( fd, x, y, 3*i + 2, 15-i )' 
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} 



/* #define DEBUG */ 
#ifdef DEBUG 
main ( ) 

{ 

int fd; 

fd = initcomx ( "/dev/ttyb" ) 
remotest est ( fd ) 
endcornx(fd) ; 

} 

#endif 
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APPENDIX F 
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DEMO TOOL 

FINAL FPD PANEL INSPECTION TOOL 
EREZ SALI 
FEBRUARY 19 94 



♦♦include <stdio.h> 
#include <math.h> 
#include <xil/X.h> 
ttinclude <xil/xlib.h> 
#include <xview/xview.h> 
#include <xview/canvas . h> 
# include <xview/panel . h> 
# include <xview/cms.h> 
# include <xview/xv_xrect . h> 
#include <xview/scrol Ibar . 
#include <xview/f one . h> 
^include <xview/cur sor . h> 
#include <xview/screen.h> 
# include <grab.h> 



r ***** i 



/* accumulate around local peak ? */ 



/* if you feel like fixing results patte] 
maximum allowed length of a mahzor */ 



#define Pi 3.141592654 

#define DYNAMIC_REG 1 
#define ZOOM_ INTENSITY 0 
#define FIX__RESULTS_FLAG 1 
#define MAX_MAHZOR 3 
#define ZOOM_FACTOR 4 
#define GOVA 360 
# define ROHAV 4 00 

#define MARK_TOL 5 /* user marking tolerance */ 
#define min(a,b) {(a) < <b) ? (a) : (b) ) 
#define max(a,b) ((a) > (b) ? (a) : (b) ) 

typedef unsigned char PIXEL ,* 

static double line_pix_ratio, row_pix_ratio, sqr_ratio; 

static int xcell=26 ,ycell =2 6 ; /* number of cells in each direction */ 

static int cell_spacing=7 ; 

static double del tax, deltay ; 

static int show_gray_f lag- 0 ; 

static double *final_buf; 

static double alfa; 

static double corner.xl , corner_y 1 , corner_x2 , corner_y2 , corner_x3 . cornerj/3 , corner 
static doub 1 e dx , dy ,- 



static int resample [MAX_MAHZOR] [4] ; / 
static unsigned char next_ind [MAX_MAHZOR ] 
static int advance [MAX_MAHZ OR] ,- /* advance 
static int f i rs t_grab=l ; 
static double *result; 
static char f name [ 200 ]; 
static char val sname ( 20 0 ] ; 
static PIXEL * image ; 
int avgnum=l; 

int x_size=ROHAV, y_size=GOVA, nj)ix; 
int rows , cols , nevrows , newcols ; 
int period_point = 0 ; 
int scrollbar_width; 
char msg [ 200 ] ; 



coefficient tables */ 
/* cycle generator */ 

lut V 



55 



int pcfd; 

typedef enum (RED, GREEN , BLUE , WHTTE} pc_ 
pc color oat tern colo r -GREEN ; 



:o:or; 
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typedef enum {CLEAR, GRID, RECT } pc_disp; 
5 pc_disp pattern_type=GRlD; 
int pc_gl=2 55; 

Frame frame, zoom_frame, options.fraine, hist_frame; 
Pixrect *color_pr, *icon_pr; 
Panel panel, opt ions_panel ; 
10 Panel_item message_item[3 ] , fname_item; 
Panel_item color_item, disp_itern,- 
Canvas main_canvas, Zoom, num_zoom; 
Panel_item text_item[20 ] ; 
XColor gray_color [65 J ; 

int repaint_zoom( ) , repa interna in () , repaint_hist ( ) ; 
15 int doneO, resize_proc ( ) , zoom_proc ( ) , options_proc ( ) ; 

int scan_proc ( ) , next_proc ( ) , prev_proc<), f ir st__proc ( } , last_proc{); 
int load^proc ( ) , pos ( ) ; 
int period_proc { ) , grab_proc ( ) ; 
Cms f gtool__cms ; 
static Notify _value frame_proc() ? 
void fine_tune (double *a, double *b) ; 
void set_xcell (Panel_item item, Event *event); 
void set_ycell ( Pane l_i tern item, Event: *event) ; 
void set_avgnum ( Panel_item item, Event *event}; 
void set_cell_spacing (Panel_item item, Event 'event) ; 
double sum_all (double xpos, double ypos, double length); 
void accum_proc (void) ; 
25 get_coef f icients ( lut , offset); 

void res ize_image (PIXEL **cur_image, int zoom_f actor ) ; 
unsigned char *resampl (unsigned char *oldpic) ; 

int grab_main (int avgnum, unsigned * *ret_buf , int *xsize, int *y size, int xstart,int 
/* e_f it (float *x ( float w y , int ndata, float *coef,int ncoef ) ? */ 
void f ix_results { void) ; 

int selected_color { Panel_item item, Event * event ) ; 
30 int selected_disp (Panel_item item, Event *event); 
void set_pc_gl ( Panel_item item, Event *event) ; 

X Image *x image; /* drawable image */ 

static Display *sdpy; 

35 

handle_error ( ) { abort () ; } 

main (argc , argv) 
40 int argc; 

char **argv; 



45 



{ 



extern int f ul iscreendebug; /* dbxtool */ 
extern int _Xdebug; 

_main(); lama? kakha (bishvil scan_files) */ 

ful Iscreendebug = 1; /* enable deboog */ 



get_opt ion__init (argc, argv) ; 

if (get_opt ion_f lag ( ' x' ) ) / * lock server to client */ 

_Xcebug = 1 ; 

if (get_opt ion_eiag ( ' d' ) ) /- test allocation heaps */ 

mal loc_debug ( 2 ) ; 

x v_ i n i t ( X V_ INI T„A RGC_ PT R_ ARG V , & a r g c , argv, 
XV ERROR PROC, handle error, 

55 
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XV_X_ERROR_PROC , handle_errc- 
NULL) ; 

if (argc !=1) read_input (argc, argv) ; 

init_window { ) ; 

pcf d=initcomx ( " /dev/ttya" ) ; 

if (pcfd==0) 

show_msg(0, "Cannot Open Communication to port" ^RUE) * 
else if (0==repaint_pc ( ) ) 

show_msg{0, "Can Not Draw on Pc", TRUE); 

if (argc!=l) { 
iconize ( ) ; 
draw { ) ; 

\ 

window_main_loop (frame) ; 



20 / ******** ******.***_ ****** ***************„***,**/ 

read_input (argc , argv) 
int argc; 
char *argv[ ] ; 

{ 

char *p; 
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if <get_option_flag('h') I I (argc i= 2 I get_opt ion_f lag ( ' i ' ) ) ) 



fprintf (stderr , "Usage: fgtool image-f ile-name\n" ) - 
exit (0) ; 



} 



if (get_opt ion_f lag ( ' i ' ) ) 

strcpy (fname, (char* } get_option_value ( ' i ' ) ) ; 
else 

strcpy (fname, argv[l] ) ; 

if (p = (char * } scanj i les ( " " , fname J ) 
35 strcpy ( fname, p); 

if ( * fname == ' \0 ' I I 

!read_pic ( fname, & image, &y_size, &x_size) ) 

fprintf (stderr, " cannot read file %s", fname) 



exit ( -1 ) ; 
} 

resize_image ( & image , ZOOM_FACTOR) ; 
x_s i 2 e * = 4 ; 
y_size*=4 ; 

color_pr = mem_create (x_size, y_size, 8); 
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#define point_color_val ( k ) (((k; < 16) ? 31 : 0) 

#define poinc.color (k) ( PIX.SRC I PIX_COLOR (pomt_coloi_va 1 { k) )) 

# define RADIUS 15 

#define PIX_SZ 7 

#define pix cmt (radius* 2*1) 
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#define ZOOM_SIZE (PIX_CNT* <PIX_SZ+1 j +6) 

zoom_de_image (canvas , event, lock) 
Canvas canvas; 
Event * event; 
int lock; 

{ 

int y, xO, yO , i, j ; 

PIXE^ ptZ™^ = (Pixwin canvas jixwin (Zoom) ; 

static R ^oclx PW ToS; = °' ZOOM - SIZE ' ^OM.SIZE) 

static dist = Pix_sz+i ; 

static center = RADIUS* (PIX_SZ+1) ; 

if (! image) return; 

if (lock) 

x = lockx, y=locky; 
else 



lockx = x = events (event), locky , y = events (event ) ; 

(x < C 
return; 



if (x < 0 I I y < 0 I I x >= x_si Z e I | y >= y_size) 



40 



sprintf (msg, "x=%3d y=%3d •• , x, y) • 
show_msg(l, msg, FALSE) ; 

/* zoom gray image */ 

for(i = -RADIUS, xO = X-RADIUS; i <= RADIUS; i ++ x0 ++ ) 
for( 3 = -RADIUS, yO = y-RADIUS,- j <= RAciusI j+f yi ++ ) 

pix = image [xO+x_size*yO] »2 ; 

pw_rop(Zoom_pw, 3 +center+i *di st , 3 + cent er+i *dist dist di^ 
} PIX_SRC | PIX_COLOR(pix>, 0,0,0)? ' 

else 

Pw_rop(Zoonupw 3+center+i-dist, 3+center + j *dis t , dist dist 
PIX_SRC I PIX_COLOR(0) , 0,0,0); 

pix = image [x+x_size*y] >128 ? 0 : 63; 
pw_rop(Zoom_pw, center+Plx_SZ , center+Pix SZ 2 2 
PIX_SRC|PIX_COLOR(pix) , 0,0,0);"" ' ' ' 

show_grays ( iinage+y *x_si ze+x ) ; 

} 



init_window() — — — **************** / 

{ 

Pixfont *buttcn_f ont; 
char label [ 100 ] ; 
Scrollbar hs , vs; 

50 /* create frame */ 

strcpy (label, "Brightness Inspection Tool- ")• 

strcat (label, fname) ; 

frame - xv_create (NULL , FRAME , 

WIN_X, 0, 

WTN_Y , 0 , 

55 FRAME NO CONFIRM, TRUE , 
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XV.LABEL, label, 
5 C) ; 

Sdpy = (Display *) XV_DISPLAY_FROM_WINDOW ( f r ame ) ; 
set_colormap ( ) ; 

10 (void) not ify_interpose_event_f uric < frame, frame_proc, NOTIFY_SAFE ) 

/* construct panel */ 

panel = xv_create ( frame , PANEL. , 

WIN_COLUMNS , 3 , 

0) ; 

15 xv_create (panel , PANEL_BUTTON, 

XV_Y, xv^row(panel ( 0), XV_X, xv_col (panel , 0) 
PAN EL_LA3EL_ST RING , "Quit", 
PANEL_NOTIFY_PROC, done, 
0) ; 

2o xv_create {panel , PANEL_BUTTON , 

XV_Y, xv_row (panel , 0), XV_X , xv_co 1 ( panel , 6) 
PANEL_LABEL_STRING, "Resize", 
PANEL_NOTIFY_PROC, resizejroc, 
0) ; 

xv_create (panel , PANEL_BUTTON , 
25 XV_Y, xv_row(paneL 0), XV_X, xv__col (panel 14) 

PANEL_LABEL_STRING, "Zoom", 
PANEL_NOTIFY„PROC , zoornproc 
0) ; 

xv_create (panel , PANEL_BUTTON , 
30 XV_Y, xv_row (panel, 0), XV_X, xv_col (panel , 21), 

PANEL_LABEL_STRING , "Ootions" , 
PANEL_NOTIFY_PROC , opt ions_proc , 
0) ; 

xv_create (panel , PANEL_BUTTON, 

XV - Y < xv_row(panel, 1), XV_X # xv_col (panel, 21), 
35 PANEL_LABEL_STRXNG , " Period" , 

PANEL_NOTIFY_PROC , period croc 
0) ; 

xv_create (panel , PANEL_BUTTON, 

XV_Y, xv_row(panel. 1), XV_X, xv_col (panel 14) 
40 PANEL_LABEL_STRING, "Add", 

PANEL_NOTIFY_PROC, accum__proc , 
0) ; 

xv_create (panel , PANEL_BUTTON, 

XV_Y, xv__row (panel, 1), XV_X, xv_col (pa^el 7) 
PANEL_LABEL_STRING, "Grab", 
45 PANEL_NOTIFY_PROC, qrab_pv OC , 

0) ; 

{ 

int i ; 

for (i=0; i < 2; 1++) 
5^ message_i: em [ i ] _ 

xv_creace (panel , PAN EL_ME£ SAGE , 

XV_Y, xv_row (panel , i+2), X V_X , xv_col (panel , 0), 
PAN EL_LA3 EL_STR 1 NG , " 
0 ) ; 

55 
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window_f it (panel) ; 



/* construct (hidden) zoom_frame V 
strcpy (label, "Zoom: ") ; 
strcat { label , f name) ; 
zoom_frame = xv_create ( frame, FRAME , 

WIN_SHOW, FALSE , 

XV_LABEL, label, 

FRAME_SHOW_LABEL, TRUE , 
0) ; 

/* construct Zoom canvas */ 

Zoom = xv_c r eat e (zoom_f rame, CANVAS, 

CANVAS„WIDTH , ZOOM^SIZE, 
CANVAS_H EIGHT, ZOOM_SIZE, 
XV_WIDTH f ZOOM_SIZE, 
XV_HEIGHT, ZOOM_SIZE, 
CANVAS__AUTO_SHRlNK , FALSE, 
CANVAS__AUTO_EXPAND, FALSE, 
CANVAS__X_PAINT_WINDOW, TRUE 
CANVAS_REPAINT_PROC, repaint.zoom, 
WIN_DYNAMIC_VISUAL , TRUE , 
0) ; 

/* construct gray panel */ 

num__zoom = xv_create { zoom_f rame , CANVAS, 

XV_X , 0 , 

XV_Y, xv_get (Zoom, XV_H EIGHT) +1, 
XV__H EIGHT, ZOOM_SIZE, 
XV_WIDTH , ZOOM_SIZE , 
CANVAS_REPAINT_PROC, repaint_zoom, 
CANVAS__AUTO_SHRINK, FALSE, 
CANVAS_AUTO_EXPAND , FALSE , 
0) ; 

xv_set (canvas_paint_window(Zoom) , WIN.CMS, fgtool_cms 0) 
xv_set (canvas_paint_window(num_zoom) , WIN_CMS, fgtoolicms 

/* construct main canvas */ 

main^canvas = xv_create ( frame , CANVAS, 

XV_X , 0 , 

XV_Y, xv_get (panel ( XV_HE IGHT ) +1 
CANVAS_AUTO_SHRINK , FALSE , 
CANVAS_AUTO_EXPAND, FALSE , 
WIN_DYNAMIC_VISUAL , TRUE , 
CANVAS_RETAINED, FALSE, 
CANVAS_REPAINT_PROC, repa interna in 
CANVAS_X_PAINT_WINDOW , TRUE , 

CANVAS_CMS_REPAINT , TRUE , 
0) ; 

vs = xv_creat e (main_canvas , SCROLLBAR , 

SCROLLBAR_DI RECT ION , 3CROLLBARJ/ERTI CAL , 

hs = xv__create <main_canvas , SCROLLBAR, 

SCROLLBAR.DI RECT ION, SCROLLBARJORI ZONTAL , 

scrollbar_width =xv_gec(vs, XV_WIDTH) + 2; 
xv_set (main_canvas, 

CANVAS_WIDTH , x_s i ze , 

CANVAS_HEIGHT, y_size, 

XV_WIDTH, min(ROHAV, x_size + scrollbar_width) 
XV HEIGHT, min(GOVA, v size+scrollbar width)! 
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0) 
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15 



20 



25 



30 



35 



40 



xv^set (canvasjpaint_window(main_canvas) 
WIN_EVENT_PRCC , pes, 
WIN_CMS , f gtool_cms , 
WIN_CONSUME_EVENTS, LOC_MOVE 0 



show_grays( (PIXEL * ) NULL) ; 



initialize gray window */ 



window_f it < zoom_f rame ) ; 
window_f it ( frame} ; 
xv_set (panel, XV__WIDTH. ( int ) xv_ get ( frame V V W T DTH ) n» 
xv_set (main^canvas, XV WIDTH (in^vv / 0); 

, av_wxuih ( lin L )xv_ge: (frame, XV_WIDTH), 

/ construct (hidden) opt ions_f rame */ 
strcpy (label, "Options frame ")■ 
options^frame = xv_create ( frame ', FRAME, 

WIN_SH0W, FALSE , 
XV_LABEL, label, 

XV_WIDTH, xv_get ( frame, XV WIDTH) 
F RAME _ S HO W_ LABEL, TRUE 
0) ; 

/* construct gray panel */ 

options_panel = xv_create (optionsj rame, panel, 

XV_WIDTH. xv_get (panel, 



0) ; 



0) ; 

fname__item = 

xv_create (opt ions^panel , PANEL_TEXT , 

XV_y, xv_row(options_panel 0) 
PANEL_LABEL_STRING , "Load file- ' 
PAN EL_V AL QE , f name , 

PANEL_VALUE_DISPLAY_LENGTH -> 0 
PANEL_VALUE_STORED_LENGTH ' 150 
PANEL_NOTIFY_PROC, load_p'- 0 C 



XV_WIDTH) , 



XV_X, xv_col ( opt ions_panel # 0) 



xv_create (opt ions_panel , PANEL_BUTTOM , 

XV_Y, xv_row(options__panel ' 1) 
PANEL_LABEL_STRING / "Scan" ' 
PANEL_NOTIFY_PROC, scan _jproc, 

xv_cr eat e ( opt ions_panel , PANEL_BUTTON , 
PANEL__LABEL_STRING , " Next " ' 
PANELJNOTIFY PROC , next oroc 



XV_X , x v_c o 1 ( op t i on s__pane 1 , 0 ) , 



45 



xv_create (opt ions_panel , ?ANEL_Button 
PANEL_LABEL_STRING, " PrPv" ' 
PANEL_MOTIFY_PROC , prev^roc 



50 



xv_create ( opt ions_panei , PANEL_BUTTO\ T 
PANEL_LA3EL_STRING, " lsr 
PANEL_NOTIFY_PROC , fi-s^ -r- G r 
0) ; " ""^ 



55 



xv_create (opt ions_panel , ?ANEL_BUTtgn 
PAN EL_LABEL_ST RING , " Lasr ' 
PANEL_NOTIFY_?ROC , irv^r 
0) ; 



Last_proc , 
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text_item[0] = 

xv_create (opt ions_panel , PANEL_TEXT , 

PANEL_LABEL_STRING, "Number of X Cells ", 
PANEL_VALUE, "26" , 
5 PAN EL_VALUE_D I S PL A Y_L ENGTH , 10 , 

PANEL_NOTIFY_PROC , set_xcell , 
XV_X ,20, 
XV_Y, 100 , 
0) ; 

10 text_item [ 1 ] = 

xv_create (opt ions_panel , PANEL_TEXT, 

PANEL_LABEL_STRING, "Number of Y Cells " , 
PANEL_VALUE , " 2 6 " , 

PANEL_VALUE_DISPLAY__LENGTH, 10 , 
?ANEL__NOTIFY_PROC / set_ycell , 
*5 X V_X ,20, 

XV„Y, 13 0, 
0) ; 

text_item[2 ] = 

xv_create(optionsjpanel , PANEL_TEXT, 
20 PANEL__LABEL_STRING , "Number of Averages:", 

PANEL_VALUE, " 1 " , 

PANEL_VALUE_DISPLAY_LENGTH , 10, 
PANEL_NOTIFY_PROC , set_avgnum, 
XV_X,20, 
og . XV Y, 160, 

0)7 

text_item[3 ] = 

xv^create (opt ions_panel , PANEL_TEXT, 

PANEL_LABEL_STRING, "Cell Spacing:", 
30 PANEL_VALUE , " 7 " , 

P ANEL_VALUE_D I S PLAY_L ENGTH , 10 , 
PANEL_NOTIFY_PROC , set_cel i_spacing , 
XV_X, 20 , 
XV_Y, 19 0, 
0) ; 

35 

color_item= 

xv_cr eate ( opt ions_panel , PANEL_CH0ICE , 

?ANEL_CHOICE_STRINGS, "Red" , "Green" , "Blue" , "White" ,NULL, 
PANEL_NOTIFY_PROC, se 1 ecc ed_color , 
PANSL_VALUE , 1 , 
40 XV_X,20, 

XV_Y, 22 0, 
NULL) ; 

disp__item= 

xv__create (opt ions_panel , PANEL_CHOlCE , 

PANEL_CHOICE__STRINGS, "Clear" , "Grid" , "Rect " , NULL , 
P AN EL_NOT I F Y_PROC , select ed_d i sp , 
PANEL_VALUE, 1 , 
XV_X ,20, 
XV_Y, 2 50 , 
50 NULL) ; 

xv_create (opt ions_panel , P ANEL_S L I DER , 

PANEL_LABEL_STRING, " Pc Gray Level:", 
PANEL_VALUE ,255, 
PANEL_MIN__VALUE, 0 , 
55 PANEL„MAX_VALUE ,255, 

P ANE L_S L I DE R_W I DT H , 50 , 
?ANEL_TTCKS, 5, 

P.^NEL NOTIFY PROC.set DC ql, 
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XV_X, 2G , 
XV_Y ,280, 
0) ; 

window_f it (opcions_panel) ; 
wmdow_f it (options.frame) ; 



t*******i 



25 



30 



35 



set_colormap { ) 

15 { 

Pixwin *pw; 

Xv_singlecolor f gtool_colo^ [65 ] ■ 

regfster n int r H n " (XV - S ™ n J ^_get ( f ra,e , XV_SCREEN) ; 
20 for(i=0; i < 64; i++} 

f B «:ool_color[i].r.d = f 0t ool_color[i] .green = fgnool.color t i , . biue _ i« 2 , 

fgtool_color[64] .red = 255; 
fgtool_color [64 ] .green = 150* 
fgtool_color[64] .blue = 150/ 



fgtcol_cms = (Cms)xv_find (screen, CMS, 

CMS_NAME, "e65" , 
XV_AUTO_CREATE, ' FALSE 
0) ; 

if { I fgtool_cms } 

fgtool_cms = (Cms )xv_create< screen, CMS, 

CMS_TYPE, XV_DYNAMIC_CMS 
CMS_SIZE, 65, 
CMS^COLORS, fgtool_color 
CMS^NAME, "e6 5" 
0) ; 

(void)xv_ ge t(fgtool_cms, CMS_X_COLORS , gray_color); 



40 



45 



/******** W: < 
draw( ) 



r * * * * * * A , 



mem2pr_gr ay (image, x_size f y_size) 



50 



55 



mem2pr_gray £m, x_size, y_size ) 
PIXEL *m; 

int x_size , y_size; 



■*********. <r *.*a. AA ^ 
******** 



* + * * 1 



PIXEL *m_l r -p_l ; 
Pixrect *p = coior_pr; 
int i , j ; 

unsigned long * index; 
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index = {unsigned long * ) xv_get ( f gt ool_cms , CMS_INDEX_TABLE) ; 

5 for(m_l=m, 

P_l = ( PIXEL *) (mpr_d (p) ->md_image) , 
i=y_size; 
i>0 ; 
i-- , 

p„l+=mpr_d (p) ->md_linebytes , 
10 m_l+=x_size 
) 

for ( j=0 ; joc_size; 

P_l[j] = index [m_l [j] >>2] ; 

} 



done ( ) 

{ 

20 exit(O); 
} 



25 pos (window, event) 

Xv_Window window ; 
Event * event ; 

{ 

int x = event_x (event ) , y = event_y ( event ) ; 
static int zoom_lock = FALSE; 
Event pending_event ; 



30 
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/* period input */ 

if (period_point && event_is_down (event ) && event_id (event) == MS_LEFT) 
get_period(x, y) ; 

/* test zoom lock */ 

if ( event_ctrl_is_down (event ) event_is_up (event ) ) 
if (event_id (event) == MS_LEFT) /* lock it */ 

zoom_lock - TRUE; 
else 

if (event_id (event) == MS_RIGHT) /* unlock it */ 
zoom_lock - FALSE; 

/* test if newer events are pending (a problem! I eats repaint events!!) */ 
while (window == 

xv_input_readevent (window, &pending„event , FALSE , FALSE , NULL)) 
* event = pending_event ; 

x - event_x (event ); y = eveut_/ ( event ) ,- 



if { !xv_get (zoom_f rame, WIN_SH0W) ) 
{ 

sprintf <msg, "x=%3d y = %3d " , x, y) ; 

show__msg ( 1 , msg, FALSE); 

return; 

50 } 

xv_set (message_item[l] , PANEL_LABEL_STRING , " " , 0); 

zoom_de_image (window, event, zoom_lock) ; /* new place or last place */ 

55 > 
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10 



15 



/********** ****** 

show_msg(row, s, bell) 
int row; 
char *s; 
int bell; 



r ***************** / 

display a message xn message window V 



/* Che message to display */ 
/ ring window bell if true */ 



xv__set (message irpmrr ni ,i n , „ T ^ T 

XFlushfsdpy); " PANEL - LAB EL_STRING, s, 0); 

if (bell) 

{ /* ring the bell ♦/ 

window_bell (panel) ; XFlush ( srinv i 
window_b e il (panel) ; XFlufh sdnv 
, wlndo --bell (panel,; XFlusSfsd^l 

/* end of show_msg{ ) 



20 
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******* , 



*dpy ; 
xwin; 
fgc; 



line_cnt, pix_cnt; 



/* mat 



/************ ^ + i 

show_grays (iptr) 
^ PIXEL *iptr ; 

static Display 

static Window 

static GC iyu; 

static XGCValues gcvals- 

static Xv_Font gra y _font; 

ttatin ^ne.height, pix__width, 
static halfx, halfy- 

stacic unsigned long black, white, xor_val ; 
int x0, yO, i -j . 
char si [7], s[200j ; 

if (! image) return; 

if (!dpy) 
{ 

xwL\- (w}ndowL; , arr? et,nUln - 200m - ^^PLAV) ; 
«« y _f ont ^^^r^^-SS^ 

line_height = (int)xv a^r 7^-=. 7 WTDTH) +2 > /Pix_width ; 

Undent = (xv_ B 2c ^^EIGh^^^^^-^^HT) +3; 

haltx = pix_cnt/2; half y= iin e _cnt/2? ne - height; 

gcvals. foreground = wlu e I E" ^ ^faulcScreen (dpy) ) ; 

gcvals. graphics_exposures - " ' Ue " dpy ' Detaulcscreen (dpy ) , , 
fgc = xCreateGC(dpv, xwi" " •^ E ' 

Sl^ Und 1 ^-.ground , GC?Qnt , GCGl -a phlcsExposures . 



XV_XID) ; 
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xor_val « white - * (unsigned long * Jxv.gec (canvas ja in t.window( num_zoom) # 

WIN_X_COLOR_INDICES) ;- 



/* show values */ 

XClearWindow(dpy, xwin) ,- 
10 XFlush(sdpy) ; 

xO = (iptr-image) %x_size-halfx; 
yO = (iptr-image) /x_size-halfy 

XSetFunction (dpy, f gc , GXcopy) ; 
XSetForeground(dpy, fgc, white) t 



15 



20 



25 



30 



for (j=0, iptr-=halfy*x_size+halfx; j < line_cnt; 
iptr+=x_size, y0 + +, xO-=pix_cnt) 

strcpy<s, " '* ) ; 

for (i=0; i < pix_cnt; i++,xO++) 

if^(xO>=0 && xO<x_size y0> = 0 && yO<y_size) 

C I ?? W u if accumula tion process is over we display intensity */ 
it ( (snow_gray_flag)&&(ZOOM_INTENSITY) ) 

sprintf (si, "%3d ( int ) f inal_buf [ i+ < int ) (iptr-image)] ) ; 
else 

sprintf (si, "%3d '*,iptr[i]) ; 
strcat (s, si) ,- 

} 

else 

strcatts," " ) ; 
XDrawSt ring (dpy, xwin, fg C/ 0, j * line_height , s ( strlen (s) +1) ; 

XSetForeground(dpy, fgc, xor_val); 
XSetFunction(dpy f fg Cf GXxor) ; 
XFi HRect angle (dpy , xwin, fgc, 

halfx*pix_width-2 , (halfy-1) *line_height+3 , 

pix_width, line heiqht ) ; 
XFlush(dpy); ™ 



35 



40 /*******i 
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50 



k ***** , 



t ***** : 



resize_proc (item, event) 
Pane l_i tern item; 
Event * event ; 



t ******* i 



{ 



int large.width - min(x_size, 1000), large_height = min (v size, 750); 
int small_wiath = min ( large_width , ROKAV) ,- 
int small_height - min ( large_height , GOVA) ; 
int add_width, add_height; 
Rect f rame_rect , *view_rect; 

show_rasg(l, " ", FALSE); 

view_rect = (Rect * ) xv_get (main_canvas , CANVAS_VIEWABLE_RECT, 
. canva3_paint_window(main_canvas) ) ; 

if (yiew.rect->r_width - smali_width + view_rect - >r_height - small_height > 
large_width - view__recc->r_width + large_height - view_rect ->r_height ) 
{ /* shrink */ 

add width = sma 1 1 wi d t h - v iew rec t - :> r width ; 
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add_height - smal l_he ight - view_rect ->r_height ; 
5 else /* expand */ 

add_width - large_v;idth - view_rect->r_width; 
add_height = large_heignt - view rect->r heiaht ■ 
} " 

10 xv_set (main_canvas, 

XV_WIDTH f add_width + xv_gec (main_canvas, XV__WIDTH), 
XV_H EIGHT , add_height + xv_gec (main_canvas , XV_H E I GHT ) 



15 



window_f it (panel ) ; 
window_f it ( frame) ; 

xv_set (panel , XV_WIDTH, ( int } xv_get ( f rame , XV_WIDTH) f 0); 



iconize ( ) 

{ 

PIXEL *m_l, *p_l; 
25 static Pixrect *p = NULL; 

int i , j , k, tmp ; 

int size = min (x_si ze , y_size) ; 

int ystep = x_size* ( s ize/ 64 ) , xstep = size/64 ; 
static Icon icon; 

if (!p) 

p = mem_create<64,64,8) ; /* icon pixrect V 
f or (m_lrdmage, p__l = (PIXEL * ) (mpr_d (p) ->md_image) , i = 64 ; 
i>0 ; 

i"/ P_l+=mpr_d (p) ->md_l ineby tes , m_l+=ystep) 
f or ( j =k=0 ; j<54 ; j + +, k+=xstep) 
{ 

tmp = ( Unt )m_l [k-1] ) +m_l [k]+m_l[k] +m_l [k+1] ; 
if {i==l i | i==64 || j = = 0 I f j= = 63) 

P_l[j]=63; 
else 

p_l [ j 1 - tmp>>4 ; 

} 

if (licon) 
icon = 

( Icon) xv_cr eat e (NULL, ICON , 

ICON_IMAGE, p, 
WIN_DYNAMIC_VISUAL, TRUE , 
WIN_CMS , f gtool_cms , 
0) ; 

xv_set ( frame , FRAME_lCON, icon, 0); 



} 

50 



zoomjproc ( ) 
{ 

int show = (int) xv aet (zoom frame, wrw SHOW) ■ 
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Rect main_rect, zoom_rect; /* bouncing rects of frames 



10 



if (show) /* remove */ 

{ 

xv_set (zoom_frame, WIN_SHOW, FALSE , 0); 
return ; 

) 

else /* display */ 

{ 

f rame_get_rect (frame, &main_rect) ; 
f rame_get_rect ( zoom_f rame , &zoom_rect ) ; 
zoom„rect . r_top - raain_rect . r_top ; 

zoom_rect .r_left = main_rect . r_left + main^rect . r_width; 

frarae_set_rect ( zoom_f rame , &zoom_rect ) ; 
15 ^ xv_set(zoom_frame ( WIN — SHOW , TRUE, 0); 

show_msg ( 1 , " " , FALSE) ; 



20 



/************ t+^+t+^t^+^^+t 

options_proc ( ) 
{ 

int show = (int )xv_get < opt ion s_f rame , WIN_SHOW) ; 
Rect main_rect, opt ions_rect ; /* bounding rects of frames */ 

if (show) /* remove */ 

xv_set (options_f rame, WIN_SHOW, FALSE, 0); 
return; 

} 

else /* display */ 

f rame_get_rect ( frame, &main_rect) ; 
f rame_get_rect <options_f rame, &options_rect) ; 
options_rect . r_top = main_rect . r_top+main__rect . r_height ; 
options_rect . r_left = main_rect . r_lef t ; 
options_rect . r_width = main_rect . r_width; 

frame_set_rect ( options_f rame , &opt ions_rect ) ; 
xv_set (options_f rame, WIN_SHOW, TRUE, 0); 

40 } 

show_msg ( 1 , " " , FALSE) 



45 



25 



30 
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/* notify proc when the main frame is opened or closed. 

50 static Notify _value f rame_proc ( frame , event, arg, type) 
Frame frame ; 
Event *event ; 
Notify_arg arg; 
Not i fy_event_type type; 

{ 

55 Xv_Window W; 

int w, new state; 
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static int sub_windows__st at e M2 ] s~< f sr^rp - 
Notify_value value; -estate - FaL^ ; 

value = notify.next_eventJunc(frame ( event, arg, type); 

/* call actual notify procedure * / 
new_state = (int) xv_get ( frame , FRame__CLOSED) ; 



if (self.state ! = new_state] /* a change in state */ 
if (new_state /* ^wh^L ™ , ce 1 

for fw - i. lj /v r,- ^ closing mam frame */ 

{ U " lf W = < Xv -Window) xv__get( frame, FRAME_NTH__SUB FRAME , w) ■ w, + J 

sub windows state [w , -'uS^ *' 
^ (void) xv_set(W, WIN_SHOW, FALSE , 0); 



*5 else 

for ( W - n- w #v rr- ^ /+ °P enin <? main frame V 

(vo^d) x; «t(i XV WIN r lHOW X :-^ t(f ^ e ' FRAME_NTH_SUB FRAME , w) ; w ++) 

- win_show, sub_windows_state[w] , 0); 

} r^fva^ ; neW - StaCe; 

/* end of f rame_j)roc ( ) */ 

{ w /* reread a file */ 

int xs=x_size, ys=y_size; 

if (image) 
{ 

free ( image) ; 
image = NULL ; 

} 

show_msg ( 1 , •* , FALSE) ,- 

^ iread_pic(fname ( &image,&y_size r &x_size) ) 

sprintf(msg, - cannot read file %s",fname^ 
snow_msg ( 0 , msg , TRUE ) ; 
return; 

} 

resize_image (& image, ZOOM_FACTOR) * 
x_size*=4; 
y_size*=4 ; 

if (color_pr) pr_dest roy ( color _pr J • 
if (ximage ! -null ) { 

ximage->data = 0; / * „ ■ ^ ^ 

^ XDestroylmage (ximage) ; required by XDes troy Image V 

ximage = 0; 

color_pr = member eate (x_size, y_size, 8); 

if (xs!=x_size f I ys !=y_size) 

int width; 

window_f it (panel) ; 
width ^ xv.get (panel, XV_WIDTK>- 
55 if (x size > width) 
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width = min (x_s ize+scrol lbar_width, ROHAV) ; 
xv^set (main_canvas , 

C ANVAS__W I DTH , x_s i z e , 
CANVAS_HEIGHT, y_size, 
0) ; 

window„fit (frame) ; 

xv_set (panel , XV__WIDTH, ( int ) xv_get ( frame , XV_WIDTH) , 0); 



if (xv_get (zoom_f rame, XV_SHOW) ) /* hide & redisplay V 

xv_set (zoom_f rame, XV_SH0W, FALSE, 0); 
zoom_proc ( ) ; 

15 > 

if ^ (xv_get ( opt ions_f rame , XV_SHOW) ) /* hide & redisplay */ 

xv_set (options_f rame, XV_SHOW ( FALSE , 0); 
opt ions__proc ( ) ; 

} 



} 

XFlush( (Display * ) xv_get ( Zoom, XV_DISPLAY) ) ,- 

strcpy(msg, "LCD TOOL " } ; 

strcat (msg, fname) ; 

xv_set (frame, XV_LABEL, msg, 0); 

25 zoom_de_image (Zoom, (Event *)NULL, TRUE); /* zoom on locked coordinates */ 

iconize ( ) ; 
draw ( ) ; 

paint_main_canvas ( ) ; 

} 

30 



repaint_ma in (canvas , pw, dpy, xwin, area) 
35 Canvas canvas ; 

Xv_Window pw; 
Display *dpy; 
Window xwin; 
Xv_xrectlist *area; 

{ 

40 XRect angle *xrect; /* a single rectangle * / 

static GC gc; 
int i; 

unsigned long * index; 
XGCValues gcvals; 

if (! image) return; 

45 

if(lximage) /» initialize package V 

{ 

XGC Va lues gcvals; 

ximage = XCreatelmage (dpy , Default Vi sual (dpy , 0 ), 8 , ZPixmap , 0 , 
50 mpr_d (color_pr J ->md_image , coior_pr- >pr_si ze . x, color_pr->pr_size .y , 

64, mpr„d(color _pr ) ->md_linebyt es ) ; 

ximage- >byte_order = ximage- >bitmap_bit_order - MSBFirst; 
ximage- >bits_per_pixel = 8; 



55 



acvals . araohics exposures = False; 
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gc - XCreateGC (dpy, xwin, GCGraphicsExposures &gcvals)- 
} sd Py =d Py; /- set static dpy variable */ 

if ( ! area) 
return ; 

fo ^ ( f; ared :^ count < xrect = area->rect_array; i>0; i--, xrect ++ ) 
XPut Image ( dpy , xwin ( gc , ximage ( j 
xrect->x, xrect ->y, 
xrect->x, xrect->y f 
xrect->width, xrect - >height ) ; 

if (corner_x2 I =0 ) { 
,5 index = (unsigned long * ) xv_get ( tgt ool.cms , CMS INDEX TABLE) • 

dpy = (Display *) XV_DISPLAY_FROM_WINDOW ( frame >- " 
xwin= (Window) xv_get (canvas_pa in t_window (main canvas) XV /t D ) - 
gc = DefaultGC(dpy, DefaultScreen(dpy) ) ; ~ ~^ 

gcvals.graphics_exposures = False; 
XChangeGC (dpy , gc , GCGraphicsExposures , fcgcvals } ■ 
XSetFunction (dpy, gc, GXcopy) ; 
XSetForeground(dpy, gc, index [64] ) ; 

XDrawArc (dpy, xwin, gc,corner_xl-3,corner_yl-3, 6 5 0 360*64)- 
XDrawArc (dpy , xwin, gc , corner_x2-3 , corner^2- 3 , 6 , 6 , 0 ' 3 60 *64 ) ' 
XDrawArc(dpy,xwin,gc,corner_x3-3,corner_y3-3, 6 6 0 # 360*64)' 
XDrawArc (dpy , xwin , gc , corner_x4 - 3 , cornerj/4~3 ( 6 , 6 \ 0 ,' 360 * 64 ) ' 



20 



25 



repamt_zoom ( canvas , pw, dpy, xwin, area) 

Canvas canvas; 

Xv_Window pw ; 

Display *dpy,- 

Window xwin ; 

35 Xv_xrectlist *area,- 

{ 



} 



zoom_de_image (canvas, (Event * ) NULL , TRUE); /* zoom on locked coordinates V 
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paintjnaiiLcanvasl) /- adjust programmed call to notifier call */ 

45 Xv_xrectlist area; 

Xv_Window pw = canvas_paint_window (main.canvas J ; 
XRectangle rect; 

rect = * (XRectangle *) xv_get { ma in., canvas , CANVAS_VIEWABLE_R2CT, pw) ; 

50 if ( rect . x + rect .width > x_size) 

rect. width = x_si ze - rect . ;< ,- 

if < rect .y f rect . height > y_size) 
rect. height = y_s ::s- rect . y ,- 
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area. count ~ 1; 
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area. rect_array [0] = rect; 

repaint_main(main_canvas, pw, 

(Display *)xv_get(main_canvas, XV_DI SPLAY) , 
(Window) xv_get (pw, XV_XID) , &area) ; 



x . ___________________________ 

scan_proc ( ) 
{ 

char *p = (char * ) scan_f iles ( " » , (char *) pane l_get_value ( f name item)); 
15 if ( P } 

panel__set_value(fname_item, p) ; 
else 

show_msg(0, "Cannot scan directory", TRUE); 



next_jproc ( ) 
{ 

char *p = ( char * ) scan_next ( ) ; 
if (p) 
{ 

panel_set_value ( f name_item, p ) ; 
load__proc ( ) ; 

} 

else 

show_msg(0, "no next file M , TRUE) ; 



prev__proc ( ) 
{ 

char *p = (char * ) scan_j?rev ( ) ; 
if (P) 
{ 

panel_set_ value ( fname_i tern, p) ; 
35 load__proc ( ) ; 

} 

else 

show_msg(0, "no prev file ", TRUE); 

} 

40 

f irst_proc ( ) 
{ 

char *p = (char * ) scan_f irst ( ) ; 
if (P) 

{ 

45 panel_set_value (fname_item, p) ; 

load_proc ( ) ; 

} 

else 

show_msg(0, "no first file - , TRUE) 

} 

50 

last__proc ( ) 

{ 

char *p = (char * ) scan_last ( ) ; 
if (p) 

55 i 

panel set value ( f name item, o) : 
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Ioad_proc f ) ; 

} 

else 

show_msg(0. "no last file true 



10 



t ****** , 



clear_canvas (canvas) 

Canvas canvas; 
{ 

pw_writebackground( (Pixwin *, canvas_pixwin ( canvas ) , 
15 0,0, 

(lnt)xv^get (canvas, CAUVAS_WIDTH ) , 
(mt)xv__get (canvas, CANVAS_H EIGHT) , 

^ PIX CLR) ; 

20 

/*************+**** w *** ++ ^ 

#define UNC 5 — ...... ... 

#define UNC 2 (2*unc + 1) uncertainty distance */ 

Sdefine MARGIN 5 /. i 

25 #define MARG2 (2 -margin) VS ° fr SO:T ' e m "9 ln */ 

float calc_period(bufl. buf2 ^ — — / 

^ int *bufl, *buf2, len; 

int i,j,k; 

30 double norm; / * ^ £ ^ . 

double val, res[UNC21- /* norm , ot * lrst vector (sum, in this case) 

float df,dg,ff f™ 7 reSUlt ° f correlation- + /- UNC */ 

float shift; ' /* , . 

float sig; 7 determined shift */ 

/ significance measure */ 

35 for (norm=j=0,- j<len; 

norm += buf 1 ( j -UNC] ,- 
sig = 10000/norm; /* , r ~ r _ 7 , ^ , v in . 

for (i=-UNC; i<=UNC; ' 9ray leVelS X 10 piX 

for (val=j=0; j<len; 
^ val += ( (double)buf I [ j+i] ) *buf2 [i ] * 

res[i+UNC] = val/norm; 
^ norm += (buf 1 [len+i ] -buf 1 [i ] j ; 

for {i = l, valrres [k=0] ; i<UNC2; ^ + -) 
if (res[i]>val) 
45 val=res [k=i ] ; 

if (k<UNC-3 I ! k>UNC+3 I I 

res[k-2]>res[k-l] -sig | f 
res[k-l]>res[k] -sig I [ 
res [k+1] >res [k] -sig | | 
50 res [k + 2 J >res [knr-l] -sig} 

show_msg(0, "bad period, try again", TRUE)- 

return - 1 ; ' ' 

) 

55 lf (reSfk " 1]>reSfk+11) '* choose oair for interrelation V 
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k--UNC; 

for (i=0 f f f =f g=0 ; i<len; 

df=buf 1 [i+k+l] -buf 1 [i+kj ; 
dg=bufl[i+k]-buf2[i] ; 
f f+=df *df ; 
f g+=df *dg; 



shift = k - fg/ff; 
return shift; 

} 

15 



/********************* ***************************************************** 

int period_proc { ) 
{ 

period_point = 1; 
20 show_msg(0, " Mark Upper Left Point", FALSE); 
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/********** ********************************** ****.** wlk1 , + lkA ^ 4##A + # ^^^^,^^^^^ 

int get_period(x,y ) 
int x , y ; 

{ 

int i, j, k, 1, n; 

int lenx, leny, len; /* correlation lengths */ 

int prdx, prdy; /* presumed periods */ 

float xpx, xpy, ypx, ypy; /* x-period (x&y) , y-period (x&y ) */ 

int *proDl, *proj2; /* h/v projections */ 

PIXEL *ptr; 

double dl,d2,d3,d4; 

double cntx , cnty ; 

double tanalf a, sinalf a, cosalf a; 

unsigned long * index; 



switch (period_point) { 
case 1 : 

corner_xl= {double ) x , cor ner__yl = (double)y; 
show_msg(0, " Mark Upper Right Point", FALSE); 
period__point = 2 ; 
40 return; 
case 2 : 

corner_x2 = { double ) x , corner^ = { double ) y ; 
per iod__point = 3 ,- 

show_msg(0, " Mark Lower Right Point", FALSE); 
return; 
case 3 : 

corner_x3= (double ) x, corner_y 3 = (double)y; 
period_point =4 ; 

show_msg(0, - Mark Lower Left Point", FALSE); 
return; 
case 4 : 

corner_x4= (double ) x , corner^ 4 = ( double )y ; 
per iod_point=0 ; 
show_msg(0, " •■ , FALSE); 
break; 
default : 

printf ("In strange place in case statement \n ") ; 
index = (unsigned lona * ) xv aetffqtooi cms, CMS INDEX TABLE); 
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f ine_tune (icorner_xI , &corner__yl .) 
f ine_tune (&corner_x2 , &corner__y2 : 
f ine_tune (&corner_x3 , &corner„y 3 J 
f ine_tune (&corner_x4 , &corner_y4 ) 

to dl= (corner_xl-corner_x2 ) * (corner_xl-corner_x2 ) + { corner_y I -corner_y2 ) * (cornery' 

dl=sqrc (dl ) ; 

d2 = (corner_x3-corner__x4 ) * (corner_x3-corner_x4) + (corner^3-corner_y4) * (corner v" 
d2=sqrt (d2 ) ; 



d3=(corner_x2-corner_x3 ) * (corner_x2 -corner_x3 ) + (corner_y2 -corner v3 ) * (comer v: 
d3-sqrt (d3 ) ; 

d4^= (corner_xl-corner_x4 ) * (corner_xl-corner_x4 ) + (corner_yl-corner v4 ) * (corner v' 
d4=sqrt (d4 } ; 

sqr_ratio= ( dl+d2 ) / ( d3+d4 ) ; 

line_pix_ratio=0 . 5- (dl/ (double) (xcell - 1 ) +d2 / (double) (xcell-1) ) ; 
row_pix_rat io=0 . 5* (d3/ (double) (yceil-1) +d4/ (double) (ycell-l) ) ; 

printf ("Pix ratio : Line %lf Row %lf \n" , iine_pix_r at io , row_pix_rat io ) ,- 

if (corner_x2 !=corner_xl) tanalfa = - < corner_y2 -corner_y 1 ) / (corner_xl -corner_x2 ) , 
if (corner_y2 !=comerj/3) tanal f a+= ( corner_x2 - comer_x3 ) / ( cornery 3 -corner v2 ) ' 
tanalfa/=2 . 0; 

alf a=atan (tanal f a ) ; 
sinalf a=sin (alf a) ; 
cosalfa=cos (alfa) ; 

deltax=line_pix_ratio*cosalf a ; 
del tay = 1 ine_pix_r at io * s inal f a ,- 

30 /* 

if (corner_y3 !=comer_y4) tanalfa = - ( corner_y4-corner_y3 ) / (corner_x3-corner_x4 ) . 
if (corner_y4 ! =corner_yl ) tanaifa+= ( corner_xl -corner x4 )/ (corner v4-corner yl ) 
tanalf a/=2 . 0; 

alf a=atan (tanal fa ) ; 
sinalf a=sin (alf a) ,- 
35 cosalfa=cos (alf a) ; 

deltax=row_pix_rat io*cosaif a 
deltay=row_pix_rat io* sinalf a ; 



dx = 0; 
dy = 0; 

dx+=(corner_x2-corner_xl-deltax* (xceil-1) ) ; 

dx+= (corner_x4-corner_xl + sqr__ratio*deltay w (xcell-1) ) ; 

dx+= (corner_x3-corner_xl- (del tax* (xcell-1 } - del tay* (xcell- 1 ) /sqr_ratio) ) ; 

dy + = ( corner j/ 4 - co rner_y 1 - de 1 1 ax * (xcell-1 ) /sgr_ratio) ; 
45 dy + = (corner_y2-corner_yl-deltay* (xcell-1 ) ) ; 

dy + = (corner_y3-corner_yl- (deltax* (ycell-l) / sqr.rat io+deltay * (xcell-1) ) ) ; 

dx/=4; 
dy/=4; 

xv_set (main_canvas , XV_SHOW, FALSE , 0 ) ; 
50 XFiush ( sdpy ) ; 

for (n=C ; n<ycel 1 ; n-t-+ ) 

for ( c n t x =: c o r ne r _x 1 +dx - n * de 1 1 ay , c n t y - c o r n e r _y 1 + dy * de 1 1 a x / s q r_r a t i o ; 
cntx< = corner_x2-deUay * (double) n*2 
; cnz :< +■ -del tax , cntv + =deitav ) [ 
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^ ximage->data[irint (cntx) + irint (cncy ) *ximage- >bytes_per_Xine] =index[ 64 ] . 

5 xv_set (main_canvas , XV_SHOW, TRUE , 0 ) ; 

XFlush(sdpy) ; 

} 

write_buf (buf , len) ****★/ 
int *buf, len; 

10 ( 

int i; 

fprintf (stderr, " \n") ; 

for <i=0; i<len; i++) 

fprintf (stderr, "%d%d\n", i, buf[i]) ; 

„_ fprintf (stderr , "\n u ); 

15 } 

void fine_tune (double *a, double *b) ** / 

int i , j , maxx , maxy ; 
unsigned char maxval; 
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max va 1=0; 
maxx= (int ) *a; 
maxy- (int ) *b; 

f or ( i = ( int ) * a - MARK_TOL ; i < ( int ) * a +MARK_TOL ; i + + ) 
for ( j= (int) *b-MARK_TOL; j<(int) * b+MARK_TOL ; j + + ) 
if ( image [ i + j *x_s ize] >maxval) { 
maxva 1 = image [i + j*x_size] ; 
maxx= i ; 
maxy=j ; 

> 

* a=maxx ; 
r b=maxy ; 



> 

void set_xcell (Panel_item item, Event *event} 
35 { 

char str [ 80 ] ; 

xv_set (options__panel, PANEL_CARET_ITEM , text_item[l] ,0) ; 
strcpy(str, (char *) xv_get ( item, PANEL_VALUE )) ; 
xcell= ( int ) at of (str) ; 

} 

^ /**************************************+******* 
void set_ycell (Panel„item item, Event * event ) 

char str [80] ; 

xv_set (options_panel, PANEL_CARET_ITEM , text_item [2 1 0) * 
strcpy(str, (char* ) xv_get ( item, PANEL_VALUE } ) ; 
ycell= ( int ) at of (str) ; 

45 } 

yoid set_avgnum(Panel_item item, Event »evenc) 
char str [80] ; 

xv_set (options__panel, PANEL_CARET_ITEM , text_item[3] , 0) ; 
50 strcpy (str, (char* } xv_get (item, PANEL_VALUE) ) ; 

avgnum^ (int ) atof (str) ; 

> 

void set_cell_spacing (Panel__item item. Event -event) 
55 char str [SO] ; 
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xv_set (options_panel , PANEL_CARET_ITEM , text_item[OJ , 0) ; 
strcpy (str , (char* ) xv_get (item, PANEL_VALUE ) ) ; 
cell_spacing- ( int ) at of ( st r) ; 

} 

/*- + ********************** + ****A + ****** + ** + + * + + n «** + * + n * + + + w * n i, 

void set__pc_gl ( Panel_item item, Event *event) 
{ 

char str [80] ; 

pc_gl=xv_get (item, P AN EL_ VALUE ) ; 
if (0 ==repaint_pc ( ) ) 

show_msg(G, "Can Not Draw on Pc '* , TRUE) ; 

} 

/**************************************** ^^v******************* 

void accum_proc ( ) 

{ 

15 int 1 ine_count , total_count ; 

int i , j , n; 

int resultx, resulty ; 
double posx , posy ; 
double total; 
double dbltmp; 
20 double cntx, cnty; 

int hist [150] ; 
FILE *fp; 

for (i=0;i<150;i++) hist[i]=0; 
result=malloc (xcell*ycell*sizeof (double) ) ; 
25 total=0; 

total_count=0 ; 

if ( Z OOM_ INTEN SITY) 

f inal_buf = (double* ) calloc (x_size*y_size , sizeof (double) ) ; 

resulty=0 ; 

for (n=0 ; n<ycell ; n+ + ) 
{ 

resultx=0 ; 
1 ine__count = 0 ; 

for (cntx=comer_xl+dx- (double) n*deltay , 

cnty=corner_yl+dy+ (double ) n*deltax/sqr_rat io ; 
cntx<=corner_x2 -deltay * ( double ) n+2 ; 
cntx+=deltax , cnty+=deltay ) 

{ 

posx=irint (cntx) ; 
posy=irint (cnty) ; 
if { DYNAMIC_REG ) { 

f ine_tune (&posx , &posy ) ; 

dbltmp=sura_all (posx, posy , line_pix_rat io/2 ) ; 
total +=dbltmp; 
i f ( ZOOM_INTENS IT Y ) 

f inal_buf [irint (cntx) +irint (cnty) *x_size] =dbltmp; 
} else { 

dbltmp = sum_al 1 (posx , posy , I ine_pix_rat io/2 ) ; 
total+=dbltmp ; 
i f ( ZOOM_INTENS ITY ) 

f inal„buf [irint (cntx) -irint (cnty) x x_size] =dbltmp; 

} 

result [ resulty *xcel 1 + resuitx] =dbltmp; 
50 resultx + + ; 

tctaI__count ++ ; 
1 ine__counc + + ; 

} 

resulty- -i- ; 

) 

55 st rcpy ( va Is name , friame) ; 

strcat (valsnarr.e, " . va I s " ) ; 
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fp=f open (valsname, M w" ) ; 
5 total/= (double) total_count ; 

f or (i=0 ; i<xcell ; i++) 

for { j=0; j<ycell; j++) { 

fprintf (fp,"%lf \n", result [i+xcell*j] ) 
result [i+xcell*j] *= (1000 . 0/total ) ; 
10 if (irint (result [i+xcell* j ] /10) <150 ) 

hist [irint (result [i+xcell*j ] /10 ) ] ++; 
else hist [149] + +,- 

} 

f close ( fp ) ; 



15 
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if (FIX_RESULTS_FLAG) f ix_results ( ) ; 

/* 

fixing needs 
camera/panel ratio 
spacing 
angle 

*/ 

fp^fopent " /tmp/delme" , "w u ) ; 
for (i=0; i<150; i++) fprintf <fp,"%d %d \n'\i , hist [ i ] ) ; 
f close (fp) ; 

system ( "xgraph /tmp/delme& " ) ; 
show_gray_f lag=l ; 

25 j 

double sum_all (double xpos, double ypos, double length) 
int i , j ; 

int int_start_x, int_start_y ; 
30 int int_end_x, int_end_y ; 

double sum=0; 

int_start_x=irint (xpos- length) ; 
int_start_y=irint (ypos-length) ; 
int_end_x=int_start_x+irint (2*length) ; 
35 int_end_y = int_start_y+irint (2*length) ; 

for (i=int_start_x; i<int_end_x ; 

for ( j = int_s t ar t_y ; j < int_end_j/ ; j + + ) 
sum+= (double) image [ i + j *x_size ] ; 

Ari return sum; 

40 } 

void resize_image (PIXEL * *cur_image , int zoom_f actor) 
int i ; 

for (i=0; i < ZOOM_FACTOR; 

get_coef f icients (resample [i] , 

( (double) ( i%ZOOM__FACTOR) ) / (double) ZOOM_FACTOR) ; 

/* get luts */ 

for (i=0; i < ZOOM_F ACTOR; i++) 

next_ind[i] = i + 1; 
next_ind [ ZOOM_FACTOR- 1 ] =0 ; 

for (i=0; i < ZOOM_FACTOR; i++) 

advance [i] = ( i /ZOOM_FACTOR - ( i - 1 ) /ZOOM_FACTOR) • 
if (ZOOM_FACTOR > 1) 

advance [0 ] ++; / + problem with negative roundoff */ 
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newrows = y_s i ze*ZOGM_FACTOR; newcois = x_s l ze* Z0OM_F ACTOR; 
rows = y_size; cols - x_size; 

*cur_image = resampl ( *cur_image ) ; 



unsigned char *resampl (unsigned char *oldpic) 
10 { 

int i,j,k,tmp, shul ; 

int cl = newcois, c2 = newcols*2, c3 = newcols*3; 

unsigned char *newpic = (unsigned char *) malloc ( (unsigned) ( rows *newcols )) ; 
unsigned char *oldptr, *newptr; 
unsigned char * limit, ■ 
15 int *coef; 

/* first , in x */ 

for (i-0, oldptr = oldpic-1, newptr = newpic; i < rows ; 

i + +, newptr = newpic+newcois'i, oldptr = oldpic-1 + i*cols) 

j = k = 0; 
limit = oldptr+1; 
while (oldptr < limit) /* lert shul */ 

{ 

coef = resample [k] ; 

*newptr = ( oldptr [ 1 ]* coef [ 1 ] + oldptr [2 ] *coef [2] )/ (coef [1] +coef [2 J ) 
k = next_ind[k], oldptr += advance [k] , newptr++; 

25 } 

for (limit = oldpic+col s * ( i + 1 ) - 3 ; oldptr < limit; /* main job */ 
^ k = next_ind[k] , oldptr += advance [k], newptr++) 

coef = resample [k] ; 
30 tm P = oldptr [0] *coef [0] + oldptr [ 1] "coef [ 1 J + 

oldptr[2] *coef [2] + oldptr [ 3 ] *coef [ 3 ] ; 
* newptr = 

tmp > (255<<8) ? 255 : tmp < 0 ? 0 : ( tmp+12 3 ) >>3 ; 



} 

for (limit++; j < newcois; /* right shul */ 

j + k = next_ind[k] , oldptr advance[k] , newptrr+) 



{ 



coef = resample [k]; 

*newptr = (oldptr < limit) ? 

(oldptr [1] *coef [ 1] + oldptr [2] *coef [2] ) / (coef [ 1] +coef [2] ) 
newptrC-1]; /» shachpel last pixel */ 



/* then in y */ 
45 cols = newcois; 

for (i=0; i < ZOOM_FACTOR; i++) 

advance [ i ] * =cols ; 
free ((char *)oldpic); 
oldpic = newpic ; 

newpic = (unsigned char *) nalloc ( (unsigned) (newrows *cols) ) ; 
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for (i=0; i < cols; i~+) 
( 

limit = cldpicf i f oldptr = limit-cols, newptr = newpic+i; 
j = k = 0; 

while(oldptr < limit) /* toe shul * / 

{ 
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coef = resample [k] ; 

*newptr = ( oldptr [cl ] *coe t [ 1 } + oldptr [c2] *coef [2] ) / (coef [1] +coef [2] > 
k = next_ind[k] , oldptr +- advance [k], newptr+=cols ; 

} 

for (limit += cols* ( rows-3 ) ; oldptr < limit; /* main job */ 
k=next_ind[k] , oldptr +=advance [ k] , newptr+=cols ) 

{ 

coef = resample [k] ; 

tmp = oldptr [0] *coef[0] + oldptr [cl ] *coef [ 1] + 

oldptr [c23 *coef [2] + oldptr [c3 ] *coef [ 3 ] ; 
*newptr = 

tmp > (255«8) ? 255 : tmp < 0 ? 0 : (tmp+128)»8; 

} 

for ( limit +=cols; j < newrows; /* bottom shul */ 

k = next_ind[k] , oldptr += advance[k] , newptr+= cols) 

{ 

coef = resample [k] ; 

*newptr = (oldptr < limit) ? 

(oldptr [cl] *coef [1] + oldptr [c2] *coef [2] ) / (coef [1] +coef [2] ) : 
newptr [ -cols ] ; /* shachpel last pixel */ 



25 } 



> 



free {(char *)oldpic) 
return (newpic ) ; 



get_coef f icients ( lut , offset) 

int lut [4]; /* space for coefficients */ 

double offset ; 

{ 

double x; 

double alpha = -.5; /* optimal, as claimed */ 

double a, b, u,v,w; 
int extra; 

35 a=alpha + 2, b = -(alpha+3); 

u - -5*alpha, v=8* alpha, w=4*alpha; 

/* lut is computed one way for 0 <^x <1 and another way for 1 <=x < 2. */ 
x = of f set + 1 ; 

lut[0] = (int) (256* ( ( (aipha*x+u) *x+v) *x -w) ) ; 
x = 2-offset; 

lut [3] = (int) (256* ( ( (alpha*x+u) -x+v) *x -w) ) ; 
x = offset; 

lut[l] = (int) (256 * ( (a*x+b) *x*x+l ) + .5); 
x - 1 -of f set ; 

lut [2] = (int) (256 * ( ( a*x+b) *x*x + l ) + .5); 

45 /* sum <-- 1 */ 

extra = lut [ 0 ] +lut [ 1 ] +lut [2] +lut [3 j -256 ; 
lut [1] -=extra; 

5 • • / 

grab_proc ( ) /* grata a data cube image * / 

{ 

int xs=x_size, ys=y_size; 

if ( ( image !=NULL)&&(first_grabIsO) ) 
( 

free ( image) ; 
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image - NULL ; 

) 

5 

printf {"x=%d y =%d\n" , x_s ize , y_s i ze ) ; 
if (first_grab) { 

if (GOOD_GRAB ! =grab_main ( avgnum, & image, &x_s ize , &y_s ize, 0,0,0,0)) { 

show_msg(l, "Grab Failed " , FALSE) ; 

return ; 

to } 

printf ( "x=%d y=%d\n" ,x_size,y_size) ; 
write_ubc_f ile C " f romdc " , image , y_s i ze , x_size ) ; 
res ize_image (& image, ZOOM_FACTOR) ; 
x_s ize* =4 ; 
y_size*=4 ; 

printf {"x=%d y = %d\n" , x_s ize , y_size } ,- 
f irst_grab-0 ; 
) 

else { 

if (GOOD_GRAB ! =grab_main (avgnum, & image, NULL , NULL , 0 , 0, x_size/4 ,y_size/4) ) { 
show_msg(l, "Grab Failed FALSE) ; 
return; 

20 } 

x_size/=4 ; 
y_s ize/ =4 ; 

writ e_ubc_f ile ( " f romqc" , image, y_size, x_size) ; 
print f ( "Xsize= %d Ysize=%d\n " , x_size , y_size ) ; 
resize_image {& image , ZOOM_FACTOR) ; 
x_s i z e * = 4 ; 
y_size* =4 ; 

} 

show_msg ( 1 , " " , FALSE) ; 
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strcpy ( f name , "grabbed") ; 



if (color_pr) pr_descroy (color_pr) ; 
if (x image ! =NULL ) { 

ximage->data =0; /* required by XDestroy Image */ 

XDest roy Image (x image) ; 

) 

x image - 0; 

35 color_pr - mem_create (x_s ize , y_size, 3); 

if (xsl=x_size I 1 vs != y_s ize) 
{ 

int width; 



window_f it (panel; ; 
width = xv_get (panel , XV_WIDTK) ; 
if ( x_s ize > width} 

width = min (x_size+scrollbar_width, ROHAV) ; 
xv_set (main_canvas , 

CANVAS_W I DTH , x_s i z e , 
CANVAS_H EIGHT , y_s ize, 
45 0 ) ; 

window_f it ( frame) ; 

xv„set (panel, XV_WIDTH, ( int ) xv__get ( frame , XV_WIDTH), 0); 

50 if (xv_get ( zcoirijrair.e , XV_SHOWJ } /* hide & redisplay */ 

{ 

xv_set ( zoom_r rame , XV_SHOW, FALSE, 0); 
zoorn_proc ( > ; 

} 

it (xv_get ( opt ions_f rame , XV_SHOW) ) /* hide & redisplay */ 
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xv_sec ( options_f raiue, XV_SHOW, FALSE , 0); 
opt ions _proc ( ) ; 

) 

} 

XFlush( (Display * ) xv_get ( Zoom, XV_DISPLAY) ) ; 

strcpy(msg, "Fgtool: "); 

strcat(msg, fnarne) ; 

xv_set (frame, XV_ LABEL, msg , 0); 

zoom_de_image (Zoom, (Event *)NULL, TRUE); /* zoom on locked coordinates */ 
iconize ( ) ; 
draw( ) ; 

paint_main_canvas ( ) ; 



void f ix_result s ( void) 
/* 

fixing needs 
20 camera /panel ratio 

spacing 
angle 

*/ 

{ 

int i , j ; 
25 int *hcount; 

int incount ; 

double teder , tanalf am, sinalf am, cosalf am; 
double of f set , f inal_of f set ; 
double sum, max sum; 
double mean=0 ; 
double *h; 

double cameravec t screenvec , mvec , mangle; 
double *f,*fl? 
double delta, a, b; 
doubl e s , sx , sy , sxx , sxy , syy ; 
FILE *fp; 

35 h=calloc (2*ycell*cell_spacing, sizeof (double) ) ; 

f =calloc (xcell*ycell , sizeof (double) ) ; 
f l=calloc (xcell *ycell , sizeof (double) ) ; 
hcount=calloc (2 *ycell *cell_spacing, sizeof (int ) } ; 

cameravec= irint (row_pix_rat io /ZOOM_F ACTOR) ; 
40 s c r eenvec = r ow_p i x_r a t i o / zoom_factor ,* 

mvec- sqrt ( cameravec * cameravec ^screenvec * screenvec - 

2 *camer avec * screenvec *cos ( a 1 f a ) ) ; 
mangle=asin(screenvec*sin(alfa) /mvec) ; 

t eder =2 /mvec ; 
4 5 tanalf am=tan (mangle ) ; 

sinalfam= sin (mangle) ; 
cosalfam=cos (mangle) ; 

incount=0 ; 

for (1=0; i<xcell; i++) 
for ( j=0 ; j<ycell ; j* + ) 
if ( 

irint ( (double) j *cel l_spac ing*cosal f am+ 

(double) i*cell_spac ing* sinalf am) >=0 ) 

i 

h [irint ( (double) j *cell_spac ing* cosalf am+ 
(double) i*cell_spacing* sinalf am) ] 
55 += (double) result [ i+i *xcell 1 ; 
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meaiuz (double j result [ i + j *xce L 1 ] ; 
hcount [ ir int ( (double) j * eel l_spacing "cosal f am-r 

( double) i *cel I_spacing* sinalf am) ] - + ,* 
incount++ ; 

} 

mean/= (double ) incount ; 

for (i = 0; i<2*ycell*cell_spacing; it- +) { 
if (hcount [ i ] ! =0 ) 

h [ i] /= (double) hcount [ i] ; 
else h[ i] =0 ; 

} 

15 fp=f open ( " sinf lie " , "w" ) ; 

for (i=0; i<2*ycell*cell_spacing; i + +} 

fprintf (fp,"%d %lf \n",i,h[i]); 
f close ( fp ) ; 

printf ( "Freq. % If \n " , teder ) ; 

/ * 

20 maxsum=0; 

for (of fset=0,-of f set<2~Pi;of fset ~ = Pi/20 ) { 
sum-0 ; 

for ( i = 0 ; i<2 *y cell * eel l_spacing ; i+-r ) 
if (h[i]!=0) 

sum+=sin (of f set+ (2*Pi* ( (double) i) } / ( teder *c el l_spacing) ) * (h[i] -mean) ,- 

25 if { sum>maxsum) ( 

f inal_of f set=of f set ; 
maxsum=sum; 

} 

} 

*/ 
/* 

fp=f open ( "of f f i le" , "w" ) ; 
for ( i = 0 ; i<2 *ycell *ceil_spacing ; i + + ) 
fprintf (fp, H %d %lf\n",i, 

50* sin ( f inal_of f set+ { 2 *Pi * { (double) i) ) / (teder* eel l_spacing) ) } ; 
fprintf ( fp, " \n\n" ) ; 

for { i=0 ; i<2*ycel l*cell_spacing; i++ ) 
35 fprintf ( f p , " %d %lf\n", 

i ( (h[ i] -mean) ) 

f close ( fp) ; 

*/ 

/* Now fit K*sin(theta) and ( result -Mean ) */ 

/ * 

40 fp=f open { "corf ile ", "w M ) ; 

for ( j = 0 ; j<ycell; j + + ) 
for ( i=0 ; i<xcell ; i++ ) 
{ 

t [ i + j *xcell ] = (double) result [i + j *xcell] -mean; 
fl[i + j*xcell]=: (double ) 

sin ( (2*Pi * ( (double) j *cell_spacing*cosalEam+ (double) i *cell_spacing*sina: 
fprintf (fp,"%f %f \n" , f [ i + j -xcell] , f 1 fi--i *xcell] ) ; 

) 

f close ( fp ) ; 

s=sx=sy=s xx = syy = s xy ; 
for ( i = 0 ; i<xcell*ycell ; i + +'> { 
S -f ; 

s X +• = f { i ] ; 
sy + = f 1 [ i] ; 
sxx+=f [ ii *f [ i] ; 
syy+=f 1 [i] *f 1 [i] ; 
sxv+=c[il*tl(i]; 
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) 

delta=s*sxx-sx*sx; 
a=(sxx*sy-sx*sxy) /delta; 
^b=(s*sxy-sx*sy) /delta; 

strcpy (valsname, fname) ; 
strcat (valsname, ** . fixed" ) ; 
f P= f open { va lsname , " w" ) ; 

for (i=0; i<xcell ; i + + ) 
^ for (j=0; j<ycell; { 

result [i+j -xcell] -= (1/ (2*b) ) * 

Ito^rJiV ( f? uble) ^ cell ^Pacing*cosalfam + 
double) i*cell_spacing*sinalfam) ) / 
(teder*cell_spacing) +f inal_of f set ) ; 



*/ 

if Hh[ irint ( (double) j*cell. S pacing*cosalfam + 

MHnl . , ^° U ^ G ! i* c ell - spacing*sinalfam) ] !=0)&&: 
20 <" < (double) j*cell_spacing*cosalfam+ 

(double) i*cell_spacing*sinalfam) >=0) ) 
result [i+j *xcell 3 *= J 

(1- <h[irint ( (double) j *cell_spacing*cosalfam+ 

(double) i*cell_spacing*sinalfam) J -mean) /mean) ; 
^ fprintf (fp, -%if \ n - .result [i + j *xcell] ) ; 
fclose(fp) ; 



free(h) ; 
free(f ) ; 
free(fl) ; 

30 } 

int selected_color(Panel_item item, Event 'event) 
int val; 



val=xv_get (item, PANEL_VALUE) 
if (val==0) pattern_color=RED; 
if <val==l) pattern_color=GREEN; 
if (val==2) pattern_color=BLUE; 
if (val==3) pattern_color=WHITE; 
if (0==repaint_pc ( ) ) 
^ show_msg(0, "Can Not Draw on Pc " , TRUE) 



int selected_disp(Panel_item item, Event * event) 
45 int val; 

val=xv_get ( item , PANEL_VALUE ) ; 
if <val==0) pattern_type=CLEAR; 
if (val==l) pattem_type=GRID; ' 
if (val==2) pattern_type=RECT- 
50 if <0«repaint_pc ( ) ) 

^ show_msg{0, "Can Not Draw on p C ", TRUE) ; 

int repaint jc(void) — — — 

int rc; 
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if (pcfd==0) return (0); 
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if (pattern_color==RED) 

rc^remote_rgb( pcfd, 3, 
if (pattern_color==GREEN) 

rc=remote_rgb ( pcfd, 3, 
if (pattern_color-=BLUE) 

rc=remote_rgb ( pcfd, 3, 
if (pat tern__color = =WHITE) 

rc=remote_rgb ( pcfd, 3, 



pc_gl, 0, 0 ) 
0, pc_gl, 0 ) 
0, 0, pc_gl ) 
pc_gl, pc_gl, 



pc_gl ) 



if (rc!=: 



return rc; 



if (pattern_type==CLEAR) { 
15 rc=remote_block{ pcfd, 0, 0, 480, 640,0); 

} 

if (pattern_type==GRID) { 

rc = remote_block ( pcfd, 0, 0, 480, 640,0); 

rc*=remote_grid (pcfd, 230, 150, 180, 180, cell_spacing , cell_spacing, 3 ) ; 

} 

20 if (pattern_type==RECT) { 

rc=remote_block ( pcfd, 0, 0, 480, 640,0); 
rc*=remote_block( pcfd, 230, 150, 180, 180,3); 

} 

return rc ; 

} 
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APPENDIX G 

, . ********+*************+****»+„* . ^ 

/ * ************************ ^ 

/* */ 

/* resample J f 

-samples a ^* ^""-""""*""" — » — "V 7 

***** ****** **************************** 

/* SCCS id string */ 
#ifndef lint 

#5nSJf ^ SCCSid[] = resample. c 1.3 3/2/92"; 

15 # include <stdio.h> 
# include <math.h> 

/******************* ^ 

special functions declarations ********************/ 

#define MAX MAHZOR 8 /* ™, ■ 

unsigned chlr *resampl()- maximum allowed length of a mahzor */ 
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char *strstr(] 



/*********** A * * ^ + ^ ^ , . , 

definitions *********************, 



#define TRUE l 
#define FALSE 0 



#define max(a,b) (<a) > (b) ? (a) - (b) ) 

#defme err_return ( s ) ( (void) st rcpy ( err_msg , S ) ; return FALSE; } 

/**********»***»*»***»„,., 4 

35 global variables **-*********«****.****.*,*./ 

char header [102 5 ] ; /* j_ m h ri * 

unsigned char next_ind[MAX_MAHZOR] ; "^cycle Generator */ 
int advance [MAX_MAHZOR] ; /'advance lut" 

S ^coir-^ 20 ^ C4] ' ?! -^ficien' tables */ 
40 int oldres, newes • /. image S ^ e *' 

int newrows, newcols, mahzor; lmage ° ld and new res °^tion */ 

/************* + ******.+ »**„^_.... 

/* Thi<; mnhin. , ************** ~ **** ~ ***************** W 

/ Tnis routine resamples input image* ' 

45 *************************, ' 

*° *******************************/ 

main (argc, argv) 
int argc ; 
char **argv; 

{ 

char filename [100 ] ; 
int i; 
unsigned char -pic = NULL; 

if (argc i = 3) 

{ 

55 2S"Sf ; (Stderr ' " Us ^ e: «e ubc-filena m e new resolution \n ") ; 

} 
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(void) strcpy ( filename, argvfi]),- 
i £ ^ (! read_ubc_file ( filename, &pic, header)) 

fprintf (stderr, "Cannot open/read file %s filename} ■ 
exit (0 } ; 

} 

newres = atoi (argv [ 2 ] ) ; 
if (oldres <100) 
oldres = 2 50; 

for (mahzor^l ; mahzor <=MAX_MAHZOR; mahzor*+J 

if ( (oldres *mahzor) % newres ==0) /* mahzor found */ 
break; 

if (mahzor > MAX__MAHZOR) 

{ 

fprintf ( stderr , " luakh lo mahzori, sorry I \n" ); 
exit ( 0 ) ; 

} 

/* get luts */ 

for (i=0; i < mahzor; i++) 

next_ind[i] = i+1; 
next_ind[mahzor-l ] ~G ; 

for (i=0; i < mahzor; i++) 

advance [i] = (( i * oldres ) /newres ) - ((( i-i ) *oldres ) /newres ) ; 
if (mahzor > 1) 

advance[0J ++; /* problem with negative roundoff */ 

for (i=0; i < mahzor; i++) 

get„coef f icients (resample[i] , { (double) ( ( i *oldres ) %newres ) ) /newres) ; 

newrows = rows *newres/oldres ; newcols = cols*newres/oldres ; 
pic = resampl (pic ) ; 
(void) strcat (filename, " . rsmpl " ) ; 

write_ubc_file ( filename, pic, newrows, newcols); 
return 0; 

> 

unsigned char * resampl ( oldpic ) 
unsigned char *oldpic; 

{ 

int i,j,k,tmp, shul ; 
45 int cl = newcols, c2 = newcols *2, c3 = newcols-3; 

unsigned char *newpic = (unsigned char *) malloc ( (unsigned) ( rows *newcois ) j 
unsigned char *oldptr, *newptr; 
unsigned char * limit; 
int *coef; 

50 /- first , in x V 

for (i = 0, oldptr = oldpic-1, newptr = newpic; i < rows; 

^ i + +-, newptr = newpic +newco Is * i , oldptr = oldpic-1 + i~cols) 

j = k = 0; 
limit = oldptr+1; 
55 while (oldotr < limit) /* left shul V 
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{ 

coef = resarnple [k] ; 

*newptr = ( oldptr [ 1 ] *coef [ 1 ] + oldptr [ 2 ] *coef [ 2 ] ) / { coef [ 1] +coef [ 2 j ) ; 
^ k = next_ind[k], oldptr += advance[k], newptr+4; 

for (limit = oldpic+cols* + -3; oldptr < limit; /* main job */ 
k = next_ind[k] , oldptr += advance [k], newptr++) 

coef = resamplefk]; 

tmp = oldptr[0] *coef [0] + oldptr [1] *coef[l] + 

oldptr[2] *coef [2] + oldptr [ 3 ] *coef [ 3 ] ; 
*newptr = 

^ tmp > (255«3) ? 255 : tmp < 0 ? 0 : (tmp+128)»8; 



for (limit++; j < newcols; /* right shul */ 

^ j + k = next_ind[k] , oldptr += advance [ k] , newptr++) 

coef = resamplefk] ; 
20 *newptr = (oldptr < limit) ? 

(oldptr [1] *coef [1] + oldptr [2] *coef [2] ) / (coef [ 1] +coef [2] ) 
newptr[-l] ; /* shachpel last pixel V 



* then in y * / 
cols = newcols; 
for (i-0; i < mahzor; i++) 

advance [ i ] * =col s ; 
free ({char *)oldpic); 
oldpic = newpic, - 

newpic = (unsigned char *) malloc < (unsigned) (newrows*cols) ) ; 

for (i=0; i < cols; i + +) 
{ 

limit = oldpic+i, oldptr = limit-cols, newotr = newpic+i; 
j = k = 0; 

while (oldptr < limit) /* top shul V 

coef = resarnple [k] , - 

*newptr = ( oldptr [cl ] *coef [ 1 ] + oldptr [c23 *coef [2] ) / (coef [1] +coef [2 ] ) 
j + k = next_ind[k] , oldptr += advance [k], newptr+=cols; 



for (limit += cols* (rows-3 ) ; oldptr < limit; /* main job */ 
^ j + k=next_ind[k] , oldptr +=advance [ k] , newptr +=cols ) 

coef = resarnple [k] ; 

tmp = oldptr [0] *coef [0] + oldptr [cl] *coef [ 1 ] + 
45 oldptr [c2] -coef [2] + oldptr [c3 ] "coef [3 ] ; 

* newp t r = 

tmp > (255<<8) ? 255 : tmp < 0 ? 0 : ( tmp+12 3 ) >>8 ; 



for ( limit +=cols; j < newrows; /* bottom shul */ 

^ j + k = next_ind[k], oldptr += advance [k], newptr+= cols) 

coef = resarnple [k] ; 

*newptr = (oldptr < limit} ? 

(oldptr [cl] -coef [1] + oldptr [c2] *coef [2] ) / (coef [1] +coef [2] ) 
newptr [-cols] ; /* shachpel last pixel */ 
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> 

free( (char - ) oldp ic ) ; 
return (newpic ) ; 

} 



/***-********************************-************* * * * * * * * * ************* i 

10 get_coef f icient s { lut , offset) 

int lut [4]; /* space for coefficients */ 

double offset; 

{ 

double x; 

double alpha = -.5; /* optimal, as claimed */ 

15 double a, b, u,v,w; 

int extra; 

a=alpha + 2, b - -(alpha+3); 

u = -5*alpha, v=8*alpha, w=4*alpha; 

20 /* lut is computed one way for 0 <=x <1 and another way for 1 <-x < 2. */ 
x = offset+1; 

lut[0] = (int) (256* ( < (alpha-x+u) *x+v) *x -w) ) ; 
x = 2 -offset ; 

lut [3] = (int) (256* ( < (alpha*x-ru) *x+v) *x -w> ) ; 
x - offset; 

25 lut [1] = (int) (256 * < (a*x+b) *x*x+l ) * .5); 

x - 1-offset; 

lut [2] = (int) (256 * ( (a*x+b) *x*x + l ) + .5); 

/* sum 1 */ 

extra = lut [0] +lut [l]+iut [2]+lut [3] -256; 
Qn lut [1] -=extra ; 
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function - read a UBC image file. It does not use the standard UBC 
interface functions, but goes directly to the file. 
It assumes a bpp (bits per pixel) value of 8. 



read_ubc„file ( filename, buf, header) 
char * filename; 

unsigned char **buf; 

char *header; /* headei 



buffer 



{ 



FILE 
int 



*fp; 
np i x ; 



if ((fp = f open (filename, "r M )) == NULL) 
return 0 ; 

if (f read(header , 1, 1024, fp) 1= 1024) 
return 0; 



/* read header */ 



header [1024 ] 



\0' 



/* terminate as a string 



if (! read_int_token ( header , "nrcws", irows) I I 

! read_int_token (header , "nccls" , &cols) II 

! read_int_token (header , "positive", soldi" es)) 
return 0; 
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npix = rows * cols; 
5 if (npix < 10) 

return 0; 

if ( (*buf ) : = NULL) 

free({char *)(*buf)) ; 

if u'buf ) ( == S ^LM ^ *> malloc "-signed) npix * si 2 eof (unsigned char),, 
return 0; 

if^npix «= fread((char *) (*buf), 1, npix, fp» 

free( (char *) (*buf ) ) ; 
15 f close ( fp ) ; 

return 0; 

} 
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f close (fp) 
return 1; 



/* end of read_ubc_f ile { ) */ 



/* function - read int token from buffer 1/ 

************************************ 

read_int__token(token_string, name, value) 

char *token_ S tring ; /* 3tr ing being parsed */ 

30 char *name ; /* token name ?/> 

mt *value; /* 3Core valuG here v 



{ 



char *token, str[1100]; 
extern char *strtok() ; 
(void) strcpy(str, token_strmg) ; 
token = strtok(str, " = ■•),- 

^oL^f^^^"^^?'^^: <* look for named token v 



token = strtok((char *) NULL , " ="); 

token != NULL) /* found it */ 

return = . at oi < strto * < < ch « *» NULL, - =»)); /* read value 



} 

else 
{ 

'value =0; /* default */ 

return 0; 

> 



/* end of read_int_token £ ) */ 



/l*T*iLf *?***??*Y*^* eS modified UEC im ^ge file **********/ 
50 " ********************************************/ 

write_ubc_file( filename, buf, rows, rols) 
char "filename; 
unsigned char *buf; 
int rows, cols; 

{ 

55 



60 



BNSDOCID: <EP 0672933A1 J_> 



EP 0 672 933 A1 



FILE w £p; 
5 int i ( cnt , npix ; 

static char fields[][20] = { /* fields to rescale V 

" top -row- leg " , 

"bot-row- leg " , 

" top-row-cur u , 

"hot -cur " , 

"tr-edge" , 
10 "x-offs", 

"y-offs", } ; 

if((fp - f open ( filename, "w" ) ) == NULL) 
return 0; 

15 npix = rows *cols; 

modify_header ( "nrows" , rows) ; 
modify_header ( "ncols " , cols); 
modify_header ( "positive" , newres) ; 

for {cnt = sizeof ( fields ) /sizeof ( fields [0 ] ) - 1; cnt > 0; cnt--) 
if (read_int_token (header , fields [cnt], &i)} 
20 modify_header (fields [cnt] , rescale_param( i ) ) ,- 

f write (header , l r 1024, fp) ; 

if (npix != fwrite ( (char *) buf, 1, npix, fp)) 
return 0; 

25 fclose(fp); /* close input image file */ 

return 1; /* file read successfully */ 

> /* end of write_ubc_f ile ( ) */ 
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/* Replaces numeric value of certain token by new numric value. */ 



35 ( 



modi fy_header (token, new_value) 

char *token; /* token to replace 

int new„value; /* its new value */ 
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char *start , *p; 
char s [ 50 ] ; 

int cnt, cnt2; / * length of old/new values -/ 

if (p = strstr (header , token)) 
{ 

start = p = strpbrktp, "0123456789"); /* get to first digit of token */ 
if (p-header > 1 && *(d-1) == ' - ' 

<* (p-2) == ' ' I | * (p-2) == '=' )} 
start--; /* include the minus sign */ 

while (isdigit (*p) ) p + + ; /* get to first char after token */ 
cnt = p - start; /* len of old value */ 

(void) sprintf(s, "%d", new_value) ; 

cnt2 = strlen(s); /* len of new value */ 

if (cnt = = cnt2) 

(void) st rncpy ( start , s, cnt); /* insert new value into header */ 

else 
{ 

char buf [1024] ; 

(void) memcpy(buf, p, 1024 - (p - header)); 
(void) memcpy (start , s, strien(s)); 
p = start +strlen ( s ) ; 

(void) memcDv (d , buf, 102 4 - (c - header) ) ; 
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return TRUE; 

} 

else 

return FALSE; 

) /* end of modif y_header ( ) */ 

** „„„ ... 

/* This function multiplies param by newres / oldres, and rounds to */ 
/* proper integer value. */ 
/********** 

rescale __param(x) 
int x; 

{ 

float rx = x * newres / <( float ) oldres ) ; 

x = rx > 0 ? (rx + 0.5) : -(-rx + 0.5); 

return x; 

) /* end of rescale_param ( ) */ 

#ifndef spare 

/* returns a pointer to the first occurence of the pattern string s2 in */ 
/* si. For example, if si is "string thing" and s2 is "ing-, */ 
/* strstrO returns "ing thing". If s2 does not occur in si, */ 
/* strstrO returns NULL. */ 
/* */ 
/* This function is used by non-spare systems. */ 
/****************************^ 

char *strstr(sl, s2) 

register char *sl, *s2; 

{ 

extern char *strchr(); 
int n; 

if (n = strlen(s2) ) 

while (si != NULL && (si = strchr(sl, *s2>)) 
if (!stmcmp(sl, s2 , n) } 

return si; 
else 

S 1 + + ; 

return NULL ; 

> /* end cf strstr ( ) */ 

#endif 
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APPENDIX H 

/* 

This file is used to link modules written and compiled with CC with 
programs where main() is compiled with cc . 

DO NOT forget to call __main() before any other statement in mainO. 



/* this is to link in head from libC.so for patch version of cfront */ 

extern "C" 
{ 

extern struct linkl * head; 

struct — linkl ** LinklnHead = (struct linkl **)(& head ); 
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APPENDIX I 

/^************ ******** ***************** 

/* * / 

1 scan_f iles.c * / 

/********************************* 

/* SCCS id string " %W% %G% " */ 

#include <stdio.h> 
#include <string.h> 
#include <stdlib.h> 
# include <ctype.h> 
#include <scan_f iles . h> 

/********************************* 

void expand_environment_vars (char *s) ; // forward declaration 

extern "C" 
( 

20 int getpid( ) ; 

} 

const char * Scan_f iles :: scan (const char *dir, const char *files) 

char tmp_file[1000] , s[1000], separator [2 ] , buf[2011- 
25 Dlink__text *item; 

int real_scan; 
int at_least_one = FALSE; 
int no„dir; 

FILE *fp; 
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if (iter) // kill old i terator 

delete iter; 
iter = 0; 

while (item = list . take_head ( ) ) // clear list 
delete item? 

no_dir = <dir[0] « '\0'); // empty dir argument 

(void) st rcpy (separator , dir [ strlen (dir ) ] == '/' ? - » : »/"); 



if (files[0] == '@') 

{ /* treat the other chars as a file name */ 

real_scan = FALSE; 

(void) sprintf (tmp_file, "%s%s%3", dir, separator, files + 1); 
40 expand_environment_vars ( tmp_f lie) ; 

if ((fp = f open (tmp_f ile, "r")) == NULL) 
return 0; 

} 

else 

{ , /* use 'Is' to scan dir */ 

real_scan = TRUE; 

(void) sprintf <tmp_fil e , - / tmp/scan_%d« , getpidO); /* unique name V 
(void) sprintf (s, "cd %s ; Is -Id %s > %s" f no_dir ? . - : dir, 
files, tmp_file) ; 

/* create 'Is' command */ 
expand_environment_vars (s) ; 

if (system(s) || /* directory not read into temporary file */ 

Up = fopen(tmp_tile, " r " > ) = = MULL) /* temporary file not ok */ 
return 0; 



/ * ok if got here */ 
55 while (fgets(buf, 200, fp) ) /* read one more line */ 
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f/^ S ^ ien s bUf) ' the new-line char 

list .append (new Dlink_ t ex: (buf n • 

at_least_one = true ■ 

} 

if (at_least_one) 

iter = new Dl ist_text_i ter ( list ) ,- 



10 fclose(fp) 

{ 



if (real_scan) /* file is temporary v 



ifisv^IfT " f %S "' **>-*^: '* remove temporary file V 



if ( system ( s ) ) 

} 

return f irst ( ) ; 



20 /******■ 
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/* wSr^h!^ environmental variables in a giver/ string ''^millr'to ' 
^ SvLon^en e ta h ? ^ contain several 



/■ "nl "Jp.^.r.CrL" 11 " "'■>»»"=»l« y to provid. .„„u,h S p,« for •/ 

void expand_environment__vars (char ~s) 

c£r cmpuof C50 ° ]; <* bUlld the e ^nded string here V 

c£ar *src ^dst. *var; '* t0 ^ * Variable name V 



for (src = s, dst = exoanded ■ *c rr i _ r x n , > /* 

{ e ^ duaea ' ^rc ._ \o ; ) /* run on input string */ 

* Sr ° == gct to an enviroment variable */ 

35 f ° r (var = tmp ' src++ ; *src != '/' *src !=''&& *src 'S' && 

35 !isspace(*src) *src ■ = -\0'; ) ' ~ 5 

*var++ = *src++; /* build variable name */ 

*var = r \ 0 ' ; 

if (var = getenv(tmp)) /* environmental variable found */ 

strcpy(dst, var); /* copv to new string */ 
40 dst *= strlen(var); 

} 

else 
{ 

sprintf(dst, "$%s", tmp> ; 
dst -r= strien(tmp) + i ; 

} 

else if (*src == ' ) 

{ 

char syscall [200] ; 



( *src = !^(o',- S r 1= ^ * SrC " ' S ' && iisspace(-src) && 

*var++ = *src+ +; /■ build variable name */ 

* va r = ' \ 0 ' ; 

(void) sprintf (syscall, " csh - c \"echo %sV ", tmp); 
(void) tscanf (popen (syscall, "r"), "% 3 ", dst)- 
dst += st r len (dst ) ; 
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else 

*dst++ = *src+f ; 

} 

*dst = '\0' ; 
strcpy(s, expanded) ; 



/* regular chars, just copy */ 

/* terminate new string */ 

/* copy expanded string overriding s *, 

/* end of expand^en vi r onment _vars ( ) */ 
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/* SCCS id string "%W% %G% " */ 

# include <scan_f iles ,h> 
# include <scan.h> 

extern "C" 



static Scan_files scanner; 



scan . c 



'*/ 
*/ 
*/ 
*/ 

**/ 



30 


const char 
{ return 


*scan_f iles (const char 
(const char *) scanner. 


*dir, const char 
scan(dir, files); 


*f iles) 

} 




const char 
{ return 


*scan_f irst ( ) 
(const char *) 


scanner . 


first () ; 


} 




35 


const char 
{ return 


*scan_last ( ) 
(const char * ) 


scanner . 


last ( ) ; 


} 






const char 
{ return 


*scan_next ( ) 
(const char *) 


scanner , 


, next ( ) ; 


} 




40 


const char 
{ return 


*scan_prev ( ) 
(const char *) 


scanner , 


■prev( ) ; 


} 





/* end of C code */ 



66 



BNSDOCID: <EP 0672933A1_I_> 



EP 0 672 933 A1 



APPENDIX K 



*/ 

^ m scan_cext . c * / 



75 
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/* SCCS id string 11 %w% %g%" */ 
# include <scan_text . h> 



const char * Scan text :: first ( ) 
{ 

Dlink_text *text_item; 
if (iter) 

if (text_item = i cer- >f ir st { } ) 

return (const char *) text_item->get_text < 

return 0 ; 

} 



const char * £can_text : : last { ) 

Dlink_text *text_item ; 
if (iter) 

if Ctext_item = iter- >las t ( ) ) 

return (const char *) t ext_it em->get_text ( ) 

return 0; 

} 



const char * Scan_t ext : : next ( ) 

{ 

35 Dlink_text *text_item; 

if (iter) 

if (text__item = i ter->next ( ) ) 

return (const char *) text_item->get_text ( ) 

return 0; 

40 } 



const char * Scan_text : : prev ( ) 

{ 

Dlink_text *text_item; 
45 if (iter) 

if (text_item = i ter- >prev ( ) ) 

return (const char *} text_it em->get_text ( ) 

return 0; 

} 
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APPENDIX L 

5 /* V 

/* get_option */ 

/* */ 

fo Get_option is a package for handling the arguments passed to mainO */ 

/* via the argc and argv variables. It allows testing for options */ 

/* specified by the user when running a program, and getting a string */ 

/* value associated with them. Options must begin with a '-' character */ 

/* and may be (but do not have to be) followed by a string value. The */ 

/* string value may be separated by s[aces from the flag or be */ 

/* adjacent to it. */ 

75 / * * / 

/* For example, in the following command: */ 

/* */ 

/* my_prog -a -b B_VALUE -cC__VALUE -d */ 

/* */ 

/* the user specified four flags {a, b, c, d) , two of which <b and c) */ 

/* have values ( B_VALUE and C_VALUE respectively) . */ 

/* */ 

/* The package comes in three functions: */ 

/* */ 

/* get_option_init {argc, argv); */ 

/ * int argc ; * / 

25 /* char *argv[] ; */ 

/* */ 

/* get_option„f lag (c) ; */ 

/* char c; */ 

/* */ 

/* char *get_option__value ( c ) ; */ 

30 /* char c; */ 

/* V 

/* get_option_init initializes the package, and must be called once */ 

/* before calling any of the other functions. */ 

/* */ 

/* get_option_f lag returns 1 if the option "-c" were specified by the */ 

35 /* user (with or without a string value) , where c is its argument. It */ 

/* returns 0 otherwise. */ 

/* */ 

/* get__opt ion_value returns a pointer to the string value associated */ 

/* with the " -c" option, where c is its argument. It returns a pointer */ 

/* to an empty string (not a NULL pointer! i!) if the "-c" option were */ 

40 /* not specified, or if it was specified with no string value. */ 

/* SCCS id string */ 
#ifndef lint 

static char sccsid[] = "@ (#) opt ions . c 1.2 4/22/91"; 
45 #endif 

#include <stdio.h> 



#ifndef FALSE 
#define FALSE 0 
#endif 

#ifndef TRUE 
#define TRUE 1 
#endif 

55 

/********** static arguments **********/ 
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static short opt ion_argc ; 
static char * w opt ion_argv; 
static char nul l_string [ 1 ] = 



/ * equal to main argc */ 
/* equal tc main argv */ 
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r 



r ***** n 



r A * * * * ************ 



get_option_init (argc , argv) 
int argc; 
char *arcn/ [ ] ; 

{ 

option_argc = argc; 
option_argv = argv; 

} 



/* arguments from mainO */ 

/ * initialize global variables */ 
/* end of get_opt ion„init ( ) */ 



k- ****** •. 
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N***********-****,,******-*, 



r ****** -i 



/ 



get_option_f lag (c ) 

register char c; 



/* lecurn TRUE if option --c" provided * / 



register char **p = option__argv ~ 1; 
register int i; 

for (i = 1 ; i < option_argc ; p++) /* for all arguments */ 

if (<**p == '-') ScSc (*(*P + 1) c)) 

return TRUE ; /- option appears in arguments list */ 



return FALSE; 



/* not found */ 

/- end of get_opt ion_f lag ( ) */ 



/*******************^* AAA ^^ A ^^^^^^^ + , w ^ + ^ + ^ A ^^ + ^^^^ # ^^ ++ ^ +++# 



********! 



/* return string associated with "-c" */ 



char *get_opt ion_value (c) 

register char c; 
{ 

register char * *p = option_argv + re- 
register int i; 

for (i =1; i < option_argc ; i++, p + + ) / * for ail arguments */ 

if (t**P == '-') (*(*P + 1) =:= CJ) 

{ 

if^C*(*p + 2) == '\0') /* there is space after the " -c" */ 

if ( ( i == option_argc - 1) || !**(p + 1) == '-')) 

/* last argument or next arg is new option */ 
return null_string; 
else 

return * (p + l) ; /* return next argument as value */ 



} 

else 

return *p + 2; 



/ w no space between the "-c" and the value */ 



50 



return null_str ing; 



/* option " -c" net found at all */ 
/* end of get_opt ion_va lue { ! */ 
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#include <stdio.h> APPENDIX M 

#include <sys/file.h> 
#include <pixrect /pixrect_hs . h> 

int read_pic ( f name , image , rows , cols ) 
char * fname,* 
unsigned char ** image; 
10 int * cols,* rows; 

{ 

int Cols, Rows; 
unsigned char * Image; 
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} 



if (*fname == ' \0 ' I | 

!( read_ubc_file (fname, &Image, &Rows, &Cols) II 
read_pixrect (fname, &Image, &Rows, &Cols) II 
read_optro (fname, &Image, &Rows, &Cols) M 
read_rmx (1 , fname , &Image, &Rows, &Cols) II 
read„rmx (0 , fname, & Image , fcRows , ScCols) 
) ) 

return 0; 

*COls = Cols; 

* rows = Rows ; 

* image = Image ; 

return 1 ; 



int read_ubc_f ile ( filename, buf , rows, cols) 
char * filename; 

unsigned char **buf; 
int *rows, *cols; 

{ 

30 FILE *fp; 

char header [1025] ; /* header buffer */ 
int npix; 



if {(fp = f open ( filename, "r" )) == NULL) 
35 return 0; 

if (f read {header , 1, 1024, fp) ! = 1024) /* read header */ 
{ f close ( fp) ; return 0;} 

header [1024] = '\0'; /* terminate as a string */ 

40 if (! read_int_token {header , "nrows", rows) 1 1 

! read_int_token (header , "ncols" , cols)) 
{ f close (fp) ; return 0;} 

npix = *rows * *cols; 
if (npix < 10) 
45 { f close (fp) ; return 0; } 

(*buf) - (unsigned char *) ma 1 loc (( unsigned) npix * s izeof (unsigned char)); 
if ( (*buf ) = = MULL) 

{ f close (fp) ; return 0;} 



if (npix != fread((char *) (*buf), 1, npix, ft))) 
f 

free( { *buf ) ) ; 
f close ( fp ) ; 
return 0; 

} 
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f close ( fp) ; 
return 1; 

} 

int read_optro{ filename, buf, rows cols) 
char ^filename; 
unsigned char **buf; 

^ int *rows, *cols,- 

FILE *fp ; 

unsigned char head [64] ; 



fp = f open (filename, "r" ) ; 
if('fp) 
{ 

perror (filename) ; 
15 return 0; 

} 

if (1 ! =f read (head, 64 , 1 , fp) ) 

fclose(fp) ; 
return 0; 
} 

iff head[0]!='i' || head[l] i='M' ) 

fclose(fp) ; 
return 0; 

} 

*cols = head[5]«8 | head[4] ; 
*rows = head[7]«8 I head[6]* 

if(*cols<0 II *cols > 1024 ti *rows < 0 II -rows > 1024) 

fclose(fp) ; 
return 0 ; 
} 

rf('buf ( = = S SLL? * )malloct Crows) M*cols) ); 

{ 

perror ( "malloc" ) ; 
return 0; 
} 

if (l!=fread(*buf , (*cols)*(*rows) , 1, fp) ) 

f close(fp) ; 
return 0; 
} 

return 1; 
} 

int read__rmx{kokva, filename, buf, row^ cols) 
int kokva; 

char * filename; 

unsigned char **buf; 

int "rows, *cols; 



{ 



unsigned char c, header [ 4 j , *mem • 

int fd,n; 

struct stat inf; 

fd^open (filename , O RDONLY) ,- 
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if(fd<0) { 

per ror ( filename) ; 
close (fd) ; 
return 0; 

} 

f stat {fd, &inf ) ,- 
n=0; 

do { read{fd,&c, 1) ; n++; } whi le { ( I kokva c && n<128) I I (kokva && n<32)); 

if(»kokva && n>=128) {close { fd) ; return 0;) 

15 read ( f d , header , 4 ) ; 

n+=4 ; 

if ( ikokva) *cols=header [2 ] I header [3] «8 ; 
else 
{ 

*cols=header [0] I header [1] <<8; 
*rows=header [2] I header [3] «8; 
} 

if(*cols<10 II { inf .st_size-n)% (*cols> 1=0 II 
(kokva && (inf .st_size-n) / (*cols) !=(*rows) ) ) 
{ close (fd); return 0;} 

*rows= (inf . st_size-n) / (*cols) + ( ( inf . st_size-n) % (*cols)>0) ; 
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*buf = (unsigned char *)malloc( ( * rows ) * ( *cols ) ) ,- 
if (*buf == NULL) 
{ 

perror ( "mal loc " ) ; 
30 return 0; 

} 

read(f d, *buf , inf . st_size-n) ; 
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close ( fd) ; 
return 1; 



} 



40 { 



static read_int_token ( token_string , name, value) 

char *token_string; /* string being parsed */ 
char *name; /* token name */ 

int *value; /* store value here */ 



char *token, str[1100]; 
extern char *strtok(); 
strcpy{str, token_string) ; 
token = strtok(str, " = " ) ; 

while (token NULL strcmp (token, name)) /* look for named token */ 
token = strtokUchar *) NULL , " = " ) ; 

if (token 1= NULL) /* found it */ 

{ 

*vaiue = atoi (st rtck ( (char *) mull, " =") ); /* read value */ 
return 1 ; 

} 

else 
{ 

* value =0; / * default */ 
return 0 ; 

> 
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inc read_pixrecc ( filename , buf . rows , cols ) 
char *f ilename; 

unsigned char **buf; 

{ lnt *rows, -cols; 

FILE *fp ; 
int skip, j , x, x, i; 
Pixrect *pr; 

unsigned char *b, *b_l , * mem, -mem 1- 
unsigned short *s,*s_l; ~~ 
static unsigned char u'[2] = {0 , 255}; 

if (NULL == ( f p = fopen (filename, "r") ) ) 

perror (filename) ,- 
return 0; 

} 

if (NULL=={pr=pr_load(fp,NULL) ) ) 

20 f close ( fp) ; 

return 0; 

} 

f close ( fp) ; 
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*cols = pr->pr_size.x ; 
*rows = pr->pr_size.y ; 



i f j NULL == , mem . (unsigned char *,ma:ioc((. r ows,.(-cols)M ( pr->p r _ depth==24) . 

perror C'malloc in read_pixrect { ) » ) - 
return 0; ' 



} 



switch (pr->pr_depth) 
case 24: 

skip = (mpr_d(pr)->md_linebytes) * 

for( 'Tm^ e ? Char V ^^dtpr^md.image) ; 
35 ror(i = o,mem_l=mem, b l=b; ^ < *™.h i ^ di* 

for{j = 3M*cols) 1 j>- " ws ; b - 1 + = skip,meitul + =3M*cols),i ++ ) 
mem_l[jj = b__l[j] ; 
break; 

case 3: 

skip = <mpr_d{pr) ->md_linebytes) ; 

tor ( i=0 ,mem_l=mem, b l=b- i < *rnwQ:-H i - 

for(j = (*cols) - T; j' >= o._^^ S ' b - 1 + - skl P'^-l-(*col S ),i ++ ) 
mem_l [ j ] = b_i [ j ] ; 



break; 



case 1: 

skip = (mpr_„d(pr) ->md_linebyteO ->i • 

LrdTm^rf Sh ° rt ; )(m P^(Pr)->md_,mage); 
tor ( i=o , mem_l=mem, s l = s-i < +v- rk . ;e: . e i ^ ■ 

for(x = j=0.X= -1 i< 4 s 'i J Sklp ' C,eal - 1+=( ' cols, ' lt + ' 



^ - -;j< *COls;j++; 

it" {--x<0) 
( 

x = 15; 

X -f + ; 

mem = ^ [ s i[xi>>x * I ] ; 



55 



73 



BNSDOCID: <EP 0672933A1 J_> 



EP 0 672 933 A1 



} 

break; 
default : 

fprintf (stderr, "unknown rasterfile depth\n"); 
10 free (mem) ; 

pr_destroy (pr } ,- 
return 0; 

} 
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} 



pr_destroy (pr) ; 
*buf = mem; 
return 1; 



int write_pixrect ( filename, buf , rows , cols, depth) 
char * filename; 

unsigned char *buf; 
int rows, cols, depth; 

{ 

write_pixrect_internal ( filename , buf , rows , cols , depth, 0 ) ; 
} 

int write_pixrect_cms (filename, buf, rows , cols , cmap_len, r,g,b) 
char * filename ; 

25 unsigned char *buf ,* 

int rows, cols , cmap_len; 

unsigned char *r,*g,*b; 

{ 

write_pixrect_internal (filename, buf , rows, cols, 8, cmap_len, r,g,b) ; 



int write_pixrect_internal ( f i lename , buf , rows, cols , depth, cmap_l en, red, green, blue) 
char *filename; 
unsigned char *buf; 

int rows, cols , depth , cmap_len,- 

unsigned char *red, *green , *blue; 



{ 



FILE *fp; 

int skip, j , X, x, i ; 

Pixrect *pr ; 

unsigned char *b, *b_l , *mem, *mem_l 
uns igned short * s , * s_l ; 
colormap_t cmap ; 
unsigned char gray [2 56]; 

if (NULL ==( fp = fopen ( filename , "w" )) ) 
{ 

perror (filename ) ,- 
f close ( fp) ; 
return 0; 
) 

if (NULL == (pr = mem_create (cols , rov/s , depth) ) ) 
{ 

perror ( "malloc in write_pixrect () ") ; 
f close (fp) ; 
return 0 ; 
} 

pr- >pr_s i ze . x _ cols; 
pr->pr_size .y = rows ; 

mem = buf 
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switch (pr-> P r_depth) 
case 8: 

skip - (mpr_d (prj ->md_iinebyt«s) • 
f^M (U £ Signe ? ° har *' ^-dtpD-imd^image); 

^TS^^^ir^ < r ~ s ^-^P.n«Ul + =(cals».i + + ; 
t>_l I j ] = mem_l [ j ] ; 

cmap.type = RMT_EQUAL_PG3 • 
if(cmap_len) 
{ 

cmap. length = cmap_ien ; 
cmap . map [ 0 J = red; 
cmap . map [ 1 J - green; 
cmap. map [2 j = blue; ' 

} 

else 
{ 

cmap. length = ^56* 

f™uTi<^ Cma ?- map[ ^ = cmap. ma p[2] = gray,- 
tor [ i_u ; i<2 56 ; i + gray [ i ] - in- 
break ; 
case 1: 

25 ski P = <mp^_d (pr) ->md_linebytes) • 

fnrM <U 2 Si9ne ? ShDrt= M Cm P r -d(pr)^>md image); 

if {--x<0) 
{ 

X = 15; 
X + +; 

S_1[X] = 0; 
} 
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if (mem_l[ j] ) s_l[x] | = i« X; 



break; 
default : 

fprintf (stderr, "unknown rasterfile dept^n")- 

40 f close ( fp) ; 

return 0 ; 

} 

if (PIX_ERR^= 

pr_dump (pr.fp. (dep t h= = l ) ? (colors *)NULL: & cmap, RT_BYTE_ENCODED, 0)) 

perror ( "pr_dump" ) ; 
f close ( fp ) ; 
return 0; 
} 

f close ( f p ) ; 



pr_dest roy (pr ) 
f close ( fp) ; 
return 1; 



write_ubc_file< filename, bur, rows, cols) 
55 char * filename ; 
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unsigned char *bu£ ; 
int rows, cols; 

5 { 

FILE *fp; 

char header [102 5] ,- 
int npix = rows*cols; 

if((fp = fopen( filename, M w")) == NULL) 
return 0; 

10 

memset (header , 0, 1024) ; /* clear header */ 

sprintf (header , "Imagefile version-2: nrows = %d ncols = %d bpp - 8 signed = 0 
fwrite (header , 1, 1024, fp) ; 

if (npix ! = fwrite ( (char * ) buf , 1 , npix, fp) ) 
15 { f close (fp) ; return 0;} 

fclose(fp); /* close input image file */ 

return 1; /* file read successfully */ 

} 



APPENDIX N 

25 

/* 

wf /src/infra/corel @(#)corel.h 1.18 91/03/19 

*/ 

#define GOOD_GRAB 1234 
#ifndef grab_DEFINED 
30 #define grab_DEFlNED 

#define VGAPlusXSize 800L 
#define VGAPlusYSize 600L 

#define RS170XSize 512L 
35 #define RS170YSize 480L 

int init_maxvideo20 ( ) ; 
int prep_grab ( ) ; 
int grab_ continuous () ,- 
int grab_oneshot 0 ; 
40 int display _pipe_VGA () ; 

void load_grab_param( ) ; 

#endif 
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APPENDIX 0 



# i f ndef IMIO_DE FINED 
#define IMIO_DEFINED 



@ ( ff ) irnio . h 



1.4 93/12/01 



10 



15 



* Include the old " ohi__package . h" here 
^Temporary!! - delete unnecessary types and consts. 



#ifndef u_char 

#define u_char unsigned char 
#endif 

#define ohi_version "x.OO" 



20 
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/* *********.****_, package limites ************ * 7 
#defme ohi_entry_text_len 2 56 

#define ohi_max_point s_per ^polygon 20 

waefine ohi_max_rect_f ill 4 

#define max_ascii_f ile_windows 4 

#define ohi_name_len 30 

/************ error code ********** „ ***** * * * * * * „ 



#def ine 



ohi_err 



/ 
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/* ******* types of entries in form ************* *, 

#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
# define 



ohi. 


_text 


0 


ohi 


_int 


1 


ohi. 


.choice 


2 


ohi. 


_f loat 


3 


ohi. 


_msg 


4 


ohi. 


-toggle 


5 


ohi. 


_sl ider 


6 


ohi. 


.button 


7 
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******* 



# define 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 



types of drawing op codes 

ohi_set_op 0 

ohi_clr_op 1 

ohi_cmp_op 2 

ohi_src_op 3 

ohi_src_xor_dst 4 

ohi_src_or_dst 5 

ohi_not_src_op 6 



■*****■**-, 
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/ * ******* 

#def ine 
#def ine 
#def ine 

/* ******* 

# define 
#def ine 
# define 
#def ine 
^define 



line style *********^ 
solid 0 
dashed l 
dotted 2 



text direction *■ 
ohi_text_t o_lef t 
ohi_text_to_r ight 
ohi_text_up 
ohi_text_down 
ohi_text_centered 



/ * 



r*** ******* 



draa modes 
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#define ohi_no_drag 0 
#define ohi_rect_drag 1 
# define ohi_diag_drag 2 

/* ****** ohi win type ******* 
#define ohi_f rame_win ( 
# define ohi_canvas_win 
# define ohi_f orm_win 
# define ohi_static_menu_win 
# define ohi_tsw_win 

/* ****** status of buttons 
# define ohi_button_ready 
#define ohi_button_pushed 
#define ohi_button_inactive 
# define ohi_button_busy 



r ***** * 



**/ 



1 

2 
3 
4 

**************** 
0 
1 

2 
3 
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/*************** ERROR CODES **** 
#define IMIO_FILE_NOT_EXIST -2 
# define I M 1 0_B AD_ FILE _F ORMAT -3 



/* ****** type for world coordinates *****************/ 
typedef double ohi_world_coord_t ; 



25 /* ****** codes of available fonts ************** / 

/* OHI supports 5 fonts, tiny, small, med, big, huge */ 
typedef enum { 

ohi_ f ont_tiny = 0, 

ohi_f ont_small - 1, 

ohi_f ont_med = 2 , 

ohi_f ont_big = 3 , 

30 ohi_f ont_huge = 4 

} ohi_f ont_t ,- 
#define ohi_f ont_last_code 4 
#define ohi_f ont_n_codes 5 
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/* ****** c 0 d es 0 f input events 
typedef enum { 



******! 



*********, 



ohi. 


_event. 


__button_pushed = 


0 , 


/* 


canvas event s * / 




ohi. 


_event. 


_mouse_lef t = 


1, 


ohi. 


.event. 


_mouse_middle - 


2 , 


ohi. 


_event. 


__mouse_right = 


3 , 


ohi. 


_event. 


_mouse__move 


4 , 


ohi. 


_event. 


_kbd_c licked - 


5 


ohi. 


_event. 


_canvas_redraw - 


6, 



/* a button has been pushed */ 



/* left button of mouse has been pushed down or 
left up */ 

/* middle button of mouse has been pushed down c 
middle up */ 

/* right button of mouse has been pushed down 02 
right up */ 

/* mouse has been moved */ 



/* keyboard has been clicked while cursor is in ; 

) */ 



/ * a canvas needs to be redrwan 
(probably because of zoom, pan, . 



/* form entry s events */ 

ohi_event_toggle_modif ied=7 , /* a toggle entry has been modified */ 

ohi_event_choice_modif ied=8 , /* a toggle entry has been modified */ 

ohi event int modified =9, /* a <;cr> in a int entry */ 
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5 ohi_event_float_modified =10,/* a <cr> in a int entry */ 

ohi_event_t ex t .modified =11./- a <cr> in a int entry V 
ohi_event_slider_modified,12. /* a dlider entry has been modified V 

10 /* dummy event : for internal use of ohi */ 

ohi_event_ncne = 13 

> ohi_event_code_t ; 
#define ohi_event__last_code 13 
#define ohi_event_n_codes 14 
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typedef union { 

UINT_32 u ; 

int ival ; 

float rval ; 

char *pval ; 

} ohi_event_val_t , *ohi_event_val _p ; 

/* ****** structure of event which caused by a button ********** */ 

struct ohi_event_button_s { 
char name [ohi_name_len+2 ] 

char label [ohi_name_len+2 ] 

int button_id 

} ; 

typedef struct ohi_event_button_s ohi_event_button_t , *ohi_event_butt on^ ; 

/* ****** structure of event which caused by a canvas ********** */ 

struct ohi_event_canvas_s { 

int canvas_id ,- 

ohi_event_val_t val ; /* when keyboard klicked ; ascii value of key V 

. ■ 1 , ^ x ' y ; in screen coordinates of canvas */ 

ohi_world_coord_t wx.wy ? /* coordinates in world svstem V 

ohi_world_coord_t ww,wh ; /* width and height - relevant only when the event U 

<ohi_event_canvas_redraw>, in that case wx,wy,ww \ 
pompav u ^ , defines the current world coordinates of the canv; 

^BOOLEAN pushed; /* TRUE when a mouse button is klicked */ 

typedef struct ohi_ e vent_canvas_s ohi_event_canvas_t , •ohi.event.canvasj) ; 
/* ****** structure of event which caused by an entry in a form ******--** */ 



struct ohi_event_ent ry_s { 
int form_id ; 

i nc entry_id ; 

ohi_event_val_c val ; /* new val of choice or toggle or slider or int o, 

or text */ 



cypedef struct ohi_event_ent ry_s chi_ev en t_ e ntry_= , *ohi_ ev ent_entry_p ; 



struct chi_event_s { 

ohi_event_code_t code ; 
union gen_event { 

oh i_e vent _but t on__t bu 1 1 on 
ohi_event_canvas„t canvas 
ohi_event_ent ry_t entry ; 
} uevent ; 
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5 > ; 

typedef struct ohi_event_s ohi_event_t , *ohi_event_p ; 



r ** drawing attributes structure */ 



10 
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struct ohi_draw_attr_s { 
op_code ; 
line_style 
color ; 
width ; 



int 
int 
int 
int 

int 
int 



rect_fill ; 
text_direction; 



ohi„font_t text_font ; 

>; 

typedef struct ohi_draw_attr_s 



/* drawing op code */ 
/* solid, dashed, dotted*/ 

/* width of line. 

width of frame lines of empty rect */ 
/* rectangle filling pattern. 0=empty */ 
/* ohi_text_to_right , ohi_text_to_lef t 
ohi_text_up, ohi_text__down */ 



ohi_draw_attr_t 



*ohi_draw_attr_p ; 



20 



t * * * * * 



form entry structure 
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struct ohi_f crm_entry_s { 

int entry__type ; 

u_char is_read_only ; 

char name [ohi_name_len+2 ] ; 

char label [ohi_name_len+2 ] ; 

int label_len ; 

int text_len ; 

int color ; 



/* TRUE for read_only feilds 



/* length of space kept for label */ 

/* length of space kept for contents */ 

/* index of color, in the range O-(n-l) whei 

n is number of entries in the color_tabl* 

of the form */ 



str [ohi_entry_text_len] 



45 



char 
/* 

str should be as follows: 
case text entry : 

it contains the initial (default) text and it is used 

to return the final text, 
case int entry. : 

initial contents is not relevant. Defaualt is taken from <value> 
case float entry. : 

initial contents is not relevant. Defaualt is taken from <f loat_value> 
case choice or toggle entry: 

the format is "optionl@option2@option3@ @last_option\n" 

case msg entry: 

the contents of the message 
case button entry: 

the name of the button 

*/ 

union ifval { 

int i ; 

float f ; 
} value, min_value, max_value ; 



50 



int f loat_precis ion ; /* I t 2 I 3 I 4 */ 

int row, column ; /* coordinates of entry V 



} ; 

typedef struct ohi_f orm_entry_s 



ohi_f orm_ent ry_t 



*ohi_f orm_entry__P 



struct ohi_image_s { 

int deoth ; /* no . of bit s oer pixels . Must be one of 

55 
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in t width ■ ' L ' S ' 16 ' 32 w/ 

a multiply or 3 2 for depth 1 
a multiply of 4 for depth 8 
* multiply of 2 for depth 16 
10 . ™y numb « for depth 32 

lnc height ; /. ' , 

u_char -imaqe • "°" ° rows in image */ 

int n_byteslper row ■ /. = onCe ? Cs ° f image ./ 

int de^ripFfon^ength-/- [inath nf ** Ch rOW ±n bytes *' 

char 'description ; contents or^ 3 " 1 desc "P^°n of the image * 

}; 

typedef struct ohi_i m a g e_s ohi_ lnl a g e_t , .o hl _ lmag e_p ; 

/* rgb handling macros */ 

•d-fine oh iJB b_pac k <r. 0 .b, « <b, , < (g)<<8) , ( (r)<<lfi) } 
^ #defme ohi_rgb_unpack(rgb. p2 _r. p2 _ g , p2 _ b) N 

»{^- t> ! = ! U - CharM < r 3b)s<0xff ) ; (rgb)-(rab)=.>fl v 

•SSWSEH «£fc8S3 ;} 



20 
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End Of N ohi_package.h" 
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Functions Declaracions 



ohi_image_p 

int 

void 

ohi_iniage_p 

int 

int 



imio_load_image ( ) ; 
imio_save_ijnage ( ) ? 
imio_destroy ( ) ; 
imio_create_image ( ) ; 
imio_f ile_query ( j ; 

imio_retrieve_rectangl e ( 



40 



#endif 
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APPENDIX P 

/* 

* $Log: fpd.cv $ 

* Revision 1.1 94/03/08 16:13:00 malcolm 

* Initial revision 

V 

# include <stdio.h> 
#include <dos.h> 
#include <graphics.h> 



int 


GraphDriver; 


/* 


The Graphics device driver 


*/ 


int 


GraphMode; 


/* 


The Graphics mode value 


*/ 


int 


MaxX, MaxY; 


/* 


The maximum resolution of the screen 


*/ 


int 


MaxColors ; 


/* 


The maximum # of colors available 


*/ 


int 


ErrorCode; 


/* 


Reports any graphics errors 


V 


struct 


palettetype palette; 


/* 


Used to read palette info 


*/ 



15 



void initialize (void) 
{ 

GraphDriver = DETECT; 

ErrorCode = registerbgidr ivef ( EGAVGA_dr iver ) ,- 
if ( ErrorCode < 0 ) { 

print f ( "Error : %s\n" , grapherrormsg ( ErrorCode )); 
exit (0) ; 

} 

initgraphC &GraphDr iver , &GraphMode, - - ); 
25 ErrorCode = graphresult ( ) ; 

if( ErrorCode != grOk ){ 

printf (" Graphics System Error: %s\n", grapherrormsg ( ErrorCode ) ) 
exit { 1 ) ; 

} 

getpalettet &palette ); 
MaxColors = getmaxcolor ( ) + 1; 
MaxX - getmaxx ( ) ; 



MaxY ~ getmaxy ( ) 

} 



nvget .palette { int index) 
{ 

35 union REGS r; 

r.h.ah = 0x10; 

r.h.al - 0x07; 

r.h.bl = index; 

int86 ( 0x10, &r , &r ) ; 

return r.h.bh; 

40 } 

mset_color{ int c_index, int c_red, int c_green, int c_blue) 
{ 

union REGS r; 

45 r.h.ah = 0x10; 

r.h.al = 0x10; 
r.x.bx = c_index; 
r.h.dh - c_red; 
r.h.ch = c_green; 
r.h.cl = c_blue; 
int86 ( 0x10 , &r , &r ]; 



> 



void rgb(int index, int red, int green, int blue) 
{ 

int c_index; 

c_index = mget_palett e ( index ); /* Get color register */ 
55 mset color ( c index, red>>2 , areen>>2 , blue»2 ); 
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} 

void mcircle( int x, int y ( int radius, inc index ) 

setcolor ( index) ; 
^ circle(x # y, radius ) ; 

void mlineC int x, int y, mc x2 , mn y2, int index ) 

setcolor ( index ) ; 
^ line(x,y,x2 ,y2) ; 

void dot (int x, int y, int index) 
15 ^ putpixel(x,y,index); 

void block(int x, int y, int dx , int dy , int index) 
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setcolor ( index) ; 

setf illstyle ( SOLiD_FILL, index ); 
bar ( x, y, x+dx-1, y-rdy-1); 

void grid(int x, int y, int dx, int dy, int sx. int sy, int index) 
int px, py; 

fOr( P y = y; py < y + dy . py + _ gy j 

for( px = x; px < x + dx; px += sx ) 
putpixel (px,py, index) ; 

} 



void text (int x, int y, char *s, int index) 

setcolor ( index) ; 
^ outtextxy ( x, y ( s ) ; 

#define EOM 13 

rpc ( char *s ) 
40 { 

char t [32 ] , *p ; 
char word [ 80 ] ; 
int cmd; 

int i, j ,r,g,b,x,y ,dx,dy,sx, sy ; 
int rc - 0; 

45 

cmd - * s ; 

P = s; 

while ( *p *p != io ScSc *p != 13 ) o + +- 
*P = 0; - 
switch ( cmd ) { 

case 'b':case 'B': /* Block */ 

sscanf (s, " % s%d%d%d%d%d" , t ,tx, &y , &dx, &dy , &i ) 

b 1 oc k ( x , y , dx , dy , i ) - 

break; 

case 'd';case 'D': /* Dot */ 
55 sscanf ( s , " %s%d%d%d " , ■: , &;< , &y , ii ) ; 

dor. (x , y , i ) ; 
break; 

case 'C :case 'C: / * circle */ 
83 
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5 sscanf (s, "%s%d%d%d%d" , c ,&x f &y , &dx, &i) ; 

mcircle (x,y , dx, i) ; 
break; 

case 'g':case 'G' : /* Grid */ 

sscanf <s, - %s%d%d%d%d%d%d%d« , t , &x , &y , &dx , &dy , &sx , &sy , &i ) ; 
gnd(x,y , dx, dy , sx, sy, i) ; 
break, - 

*° case 'l':case ' L ' : /* Line */ 

sscanf (s, "%s%d%d%d%d%d" , t , &x, &y , &sx, &sy , &i) ; 

mline (x f y,sx, sy, i) ; 

break; 

case 't':case 'T' : /* Text */ 

sscanf (s, *%s%d%d%d" , t , &x, &y , &i) ; 
15 / * Extract rest as a string */ 

for( j=0; j<4; j+ + }{ /* skip first 4 arguments V 

while { *s && *s •= ' ') s ++; 
^ while ( *s *s == f ') s ++; 

text (x, y , s , i ) ; 
break; 

20 case 'r'rcase 'R': /* Rgb */ 

sscanf (s, "%s%d%d%d%d" , t , &i , &r , &g, &b) ; 

rgb ( i , r , g , b ) ; 

break; 

def ault : 

rc = -1; 
break; 

25 ) 

return rc ; 

} 

#define MSG_LEN 2 56 
unsigned char rev [MSG_LEN+1 ] ,- 
unsigned char ack[2] = { *A' , 0 }; 

#define USAGE "Usage: fpd [112]" 

endofmsg( char *s, int len ) 

int i,fnd=0; 

for< i=o, fnd=0; i<len ! fnd; s + +, i+* ) 
fnd = ( /* *s == 10 II*/ *s =-13); 

return fnd; 

} 

40 void main {argc, argv) 
int argc; 
char *argv[ ] ; 

{ 

int port, len; 
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if ( argc < 2 ) { 

puts ( USAGE ) ; 
exit { 0 ) ; 

} 

sscanf ( argvtl] , " %d" , &port ); 
port -= 1; 

50 initial ize ( ) ; 

ccmm_init ( port ,5,3,0,0); 

comm_read ( port, msg_len, rev i ; 

while ( ikbhit () ) ( 

len = MSG_LEN - grcvsize( port ),- 
if ( endof msq ( rev, len ) ) { 

55 
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rev [1 en] = 0; 
rpc ( rev ) ; 
comm__s top (port ) ; 

comm_read( port, MSG_LEN, rev )♦ 
^ comm_write( port, 1, ack ); 

} 

comm_stop (port ) ; 
closegraph ( ) ; 

} 



Compiled and linked with Turbo C Compiler. * 



aims 

A system for inspecting a display panel comprising a plurality of pixels, the system comprising: 
a selective pixel actuator which causes only some of the plurality of pixels to be actuated; 
a sensor for acquiring an image of a pattern which is generated on the panel; and 
an image processor operative to identify nonuniformities in the intensities of pixels of the panel. 

A system according to claim 1 and wherein the display panel comprises an LCD (liquid crystal display) 
panel, the system also comprising an illuminator operative to provide illumination to a panel to be inspect- 
ed. 

A system for inspecting a display panel comprising a plurality of pixels, the system comprising: 

a sensor for simultaneously acquiring an image of substantially the entirety of a pattern which is 
generated on the panel; and 

an image processor operative to identify nonuniformities in the intensities of pixels of the panel. 

A method for inspecting a display panel comprising a plurality of pixels, the method comprising: 
actuating only some of the plurality of pixels; 

acquiring an image of a pattern which is generated on the panel; and 
identifying nonuniformities in the intensities of pixels of the panel. 

A system for inspecting a display panel comprising a plurality of pixels, the system comprising: 

a sensor for acquiring an image of a pattern which is generated on the panel at a resolution which 

does not substantially exceed that of a standard TV camera; and 

an image processor operative to identify nonuniformities in the intensities of pixels of the panel. 

A system for inspecting a display panel comprising a plurality of pixels, the system comprising: 
a sensor for acquiring an image of a pattern which is generated on the panel; and 
an image processor operative to identify the intensity of each pixel of the panel. 

A system according to any of claims 1, 3, 5, and 6 wherein the display panel comprises a liquid crystal 
display (LCD) panel. 

A method for inspecting a display panel comprising a plurality of pixels, the method comprising: 

simultaneously acquiring an image of substantially the entirety of a pattern which is generated on 
the panel; and 

identifying nonuniformities in the intensities of pixels of th panel. 

A method for inspecting a display panel comprising a plurality of pixels, the method comprising: 

acquiring an image of a pattern which is generated on the panel at a resolution which does not 
substantially exceed that of a standard TV camera; and 
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identifying nonuniformities in the intensities of pixels of the panel. 

A method for inspecting a display panel comprising a plurality of pixels, th method comprising: 
acquiring an image of a pattern which is generated on the panel; and 
identifying the intensity of each pixel of the panel. 
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